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1.0 GENERAL INFORMATION 


1.1 PROGRAM ABSTRACT 


This program will format any disk drive connected to a WDASO di ak 
controller. At the time of this writing, there ere three such drives in 
existance -- the RA6O, RABO and RAB1. No changes to this program wili 
be needed to format new disk drives as they become available. 


Tnere are three ways to format a disk with this program: 


1. Reformat - Formet the disk with the bad sector information that was 
written onto the disk at the factory. This is the normal way to 
Format ea disk. 


2. Reconstruct - Format the disk without using any bed sector 
information. This should be used only when the bad sector information 
hes been destroyed or for some reason can no longer be read from the 
disk. This method may also be specified in the disk drive's maintenance 
manuel for speciel cases (eg. changing an RM/RABO spere HDA from RMBO 
format to RABO formet. 


3. Restore - Format the disk using bed sector information obtsiined from 
a disk file on the XXDP+ system loed device. This method is provided 
for use by manufacturing. No files ere provided, nor any method of 
obtaining the files, at this time. 


Tre forens auras is performed by e Di tic Utilities and 
Protocol ( >) progres loeded into the disk controller. The 
host program simply downline loede the DUP program into the UDASO and 
monitors its execution. The DUP orogres obteins peraemeters from the 
host am (eg. drive number end format mode) and requests the host 
program to print error and summery . Tre DWP program is also 
commonly celled se “diagnostic machine” (OM) program. 


This program can only format in one mode et » time. In RESTORE mode. 
only one d’ * may be selected in the hardware questions or en error 
message wili result and the progres will stop. 


In REFORMAT end RECONSTRUCT modes, any number of disk drives may be 
selected. A UDASO can only format one disk et oe time, so each disk on 
e UDASO will be selected sequentially. If the disk drives to Ue 
formatted are connected to different UDASOs, #11 VDASOs will be run 
simulteneouzly. For exemple, lets sesume three un 1 
formatting in the hardwere questions, units 1 end 2 are 
one UDASO and wnit 3 is connected to e different UDASO ( 

addresses ere different). This program will automatically stert 
simulteneous format operations on units 1 and 3. When unit 1 finishes 
(or errors), unit 2 will be started. After unite 2 and 5 are finished, 
the program stops. 
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This program will stop after each pass (911 units formatted once). 
There is no need to specify a PASS switch on the command line to the 
Diagnostic Runtime Services (eg. START/PASS:1). 


Special provisions have been made to allow this program to run under 
an APT system in manufacturing. This system does not allow questions 
to be asked of an operator. Such a condition also exists under XXDP- 
when the UAM flag is set. In this condition, only reformat mode can be 
selected. Selecting RECONSTRUCT or RESTORE will result in an error. 
Also, a date of 1-JAN-70 will be written on the disk. 


1.2 SYSTEM REQUIREMENTS 


Tris progrem was designed using the PDP-11 Diagnostic Runtime Services 
revision C. Run time environments are determined by the Runtime 
Services and may change es new versions of the Services are developed. 
Tre initial version will require the following: 


PDOP-11 Unibus processor 

28K words of memory (minimum) 

Console terminal 

XXDP> load media containing this program 

One or more UDASO subsystems. The subsystem controllers 
type UDASO-A with microcode level 5 or grester. 


A system clock - either type . or P - will be used to time 
the DUP progrem and report runtime, if available. If no system clock 
is aveilable. this program cannot detect e hung DUP progres. 


2.0 OPERATING INSTRUCTIONS 


This section contains ea brief deecristion of the Runtime Services. For 
detailed information, refer to the XXDP+ User's Manuel (CHQUS). 


2.1 COMMANDS 


There ere eleven legel commands for the Diagnostic Runtime Services 
(Supervisor). This section lists the commands and gives ea very brief 
description of them. he XXDP+ User's Manuel hes more details. 


COMMAND EFFECT 
START Stert the diagnostic from an initiel state 
RESTART Start the diegnostic without initializi 


CONT INUE Continue at test thet was interrupted (after tC) 
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PROCEED Continue from an error halt 
ExIT Return to XXDP+ Monitor (XXDP+ OPERATION ONLY! ) 
ADD Activate ea unit for test'ng (ell units are 


considered to be active et atart time 
Deactivate ea unit 


PRINT Print statistical information (see section 4,0) 
DISPLAY Type a list of all device informet:on 

FLAGS Type the state of all flags (see section 2.5) 
ZFLAGS leer ell flags (see section 2.5) 


A command cen be recognized by the first three characters. So you 
may. for example, type “STA” instead of “START”. 


2.2 SWITCHES 


There are several switches which are used to modify supervisor 
operation. These switches ere appended to the lege commands. All of 


the “. switches are tabulated below with a brief description of 
each. In the descriptions below. a decimal number is designated by 
“DDODD” . 

SWITCH EFFECT 

/TESTS:LIST Execute only those tests specified in 


the list. List is e stri of test 
numbers. for exemple - /TESTS:1:5:7-10. 
Tris list will cewee tests 1.5.7.8.9.10 to 
be run. All other teste will not be run. 
/PASS :DDDDD Execute DDDDD pesses (DODDDD - 1 to 64000) 


/FLAGS:FLGS Set specified flags. Flegs ere described 

EOP : DDDOD ae et ae age Fa 

4 : t of pass efter ever 
sone agi, Fe “CDDDBO = 1 to ) 

/UNITS:LIST TEST/ADD/DROP only those units speci fied 


in the list. Cist example - /UNITS:0:5:10-i2 
use units 0,5,10,11,12 Cunit numbers « 0-63). 


Example of switch usege: 
START/TESTS:1-5/PASS: 1000/EOP : 100 


The effect of this commend will be: 1) tests 1 through 5 will be 
executed, 2) ell unite will tested 1000 times and 3) the end of pass 
messages will be printed efter each 100 peseses only. A switch can be 
rec ized by the first three characters. You may, for example, type 
“/TES:1-5* instead of ”“/TESTS:1-5". 


Below is ae table that specifies which switches can be used by each 
Command. 


(oi 


PMTR MACR 5. Pam 3 : Pp r, 
‘ DO PDP At Yen, ORY ACRO vOS.00 Tuesday ay 83 10:10 Page 6 SEQ 90006 
TESTS PASS FLAGS EOP UNITS 
START x XX x x x 
RESTART x x . x x 
CONT INVE x x x 
PROCEED x 
DROP K 
x 
PRINT 
DISPLAY x 
FLAGS 
ZFLAGS 
EXIT 
2.3 FLAGS 


Flags ere used to set up certain operational perameters such ss 
looping on erres. All flags ere cleared et startup and remain clesred 
until explicitly set using the flags ewitch. Flags are elso cleared 
after e START o: RESTART command unless set using the flag switch. 

Tre ZFLAGS command ney elso be used to cleer ell flags. With the 
exception of the START, RESTART and ZFLAGS commands, no commands 
affect the stete of the flags: they remain set or cleared as 
specified by the last flag switch. 


FLAG EFFECT 

HOE Healt on error - control is returned to 
runtime services commend mode 

LOE Loop on error 

IERs Inhibit ell error reports 

IBE« Inhibit ell error reports except 


firet level (Cfirst level conteins 
error type. cumber, PC, test and unit) 


IXE* Inhibit extended error reports (those 
pas = pam by soggy balla a 
‘rect meeseges to ine printer 
PNT Print test number es test executes 
BOE “BELL” on error 
UAM Unattended aode (no manual intervention) 
IDU Inhibit aero dropping of units 
LOT Loop on tes 


eError messages are described in section 5.1 


See the XXDP+ User's Manusl for more detsils on flags. You may 
apecify more than one flag with the FLAG switch. For exemple, to 
ceuse the program to loop on error, inhibit error reports and type a 
“BELL” on error, you may use the following string: 


/FLAGS: LOE: IER: B0E 
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When a diagnostic is STARTed, the Runtime Services will prompt the 
user for hardware information by typing “CHANGE HW (i) ?” . Wren you 
answer this question with ea “Y", the Runtime Services will ask for the 
number of units (in decimal). You will then be asked the following 
questions for each unit. When you answer this question with an "N”, 
the Runtime Services will use the answers built into the program by 
the SETUP utility (see chapter 6 of the <XDP+ User's Manuel). If you 
have never run the SETUP utility on this program file, the default 
values listed below ( just before the question mark) will be used. 


UNIBUS ADDRESS OF UDA (0) 172150 ? 


Answer with the address of the UDAIP register of one UDA as 
addressed by the processor with memory management turned off 
: ETE even 16-bit address in the range of 160000 to 


VECTOR (0) 154 ? 


Answer with the interrupt vector address of the UDA. A vector 
address in the range of 4 to 774 may be specified. Tne UDA 
does not have e vector “hard wired” to it. 80 eny vector not 
being used by this program and XXDP+ may be used. 


BR LEVEL (0D) 5S ? 


Answer with the interrupt priority used by the UDA. Levels 4 
to 7 are sccepted. This level must match the level “hard 
wired” in the UDA by the priority plug. 


UNIBUS BURST RATE (D) 635 ? 


Tre UDA ellows the ability to control the seximm number of 
words transferred ecross UNIBUS each time the UDA becomes 
mester. The defeult anewer of 635 will slicw for the fastest 
execution of this diagnostic program. You may answer with the 
value your operating system uses or use zero which will tell 
the to supply e velue thet should work on any system. 
decimal number in the range of 0 to 63 may be specified and 
ell velues should work on any system. A larger velue will 
allow for e fester running em. The value will be pessed 
directly to the UDA during initialization. 


ORIVE NUMBER (0D) O ? 


Answer with the drive number of the drive you wish to test. 
This is the number which appears on tne “unit plug” on the 
front of the disk drive. On eo multi-unit drive, eech sub-unit 
number on the drive must be tested es ea seperate unit to 
completely test the drive. A maximum of eignt logical drives 
may be tested on one UDA at a time (UDA configuration limit). 
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2.5 SOFTWARE QUESTIONS 


_ -** or eee ee -e — e—hU ele fF 


After you have answered the hardware questions or after a RESTART or 
CONTINUE command, the Runtime Services will ask for software 
perameters. You will be prompted by "CHANGE SW (L) 7?” If you wish to 
change any peremeters, answer by typing “Y”. The softwere questions 
and the default values ere described in the next paragraphs. ‘ou may 
change the default values with the SETUP utility. 


REFORMAT USING EXISTING BAD SECTOR INFORMATION (L) Y ? 


If this question is answered “YES”, then the user wants the 
REFORMAT mode format operation. REFORMAT mode will use the 
bed sector information that is already on the disk. Any 
other mode will destroy this information. If this question 
is answered “NO”. the following will be asked to be sure the 
user knows what he is doing. 


NOT USING EXISTING INFORMATION WILL DESTROY THE FACTORY BAD SECTOR 
INFORMATION ON THE DISK. 
AGAIN - REFORMAT USING EXISTING BAD SECTOR INFORMATION (L) Y¥ ? 


This is asked to verify thet the user does want to destroy 
the bed sector information on the disk and run enother 

format mode. If this is enewered “YES”, then the user wants 
the REFORMAT mode format operation and use the ae 

bed block information. If again answered “NO”, the following 
question will be asked. 


RECONSTRUCT BAD SECTOR INFORMATION (L) Y ? 


A “YES” enswer will ceuse ea reconstruct mode format 
operation. If answered “NO”, the following will be asked 
to verify the user really wants the restore mode format. 


DO YOU HAVE A FILE ON THE SYSTEM LOAD DEVICE 
CONTAINING BAD SECTOR INFORMATION (L) N ? 


Note that such a file will not be provided with the diagnostic 
and this mode is not recommended. The format will begin 

only on ea “YES” enewer. Otherwise the following message 

will be printed and the program will abort. 


YOU CANNOT PROCEED WITHOUT SUCH A FILE. 
RESTART PROGRAM AND SELECT TO REFORMAT OR RECONSTRUCT OISK. 
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When the progrem starts a warning message is printed to warn of improper 
use of thie formetter. 


WARNING: 

THIS FORMATTER PROGRAM SHOULD NOT BE USED AS A DIAGNOSTIC 
TOOL. RUN THIS PROGRAM ONLY AS INSTRUCTED IN THE DISK 
DRIVE'S SERVICE MANUAL. 


ARE YOU SURE YOU WANT TO RUN THIS FORMATTER (L) N ? 


You must answer “YES” or the program will abort immedistely. This 
family of disk drives uses a powerful bad block revectoring mechanism to 
replace blocks tnat fell on defective areas of the disk media. As a 
disk is used and defective blocks are detected, DEC operating systems 
repiece the blocks with other blocks on the disk (reserved for this 
purpose and otherwise inaccessabie) so that the disk Sorentent iy appears 
to have its full storage capacity of error free disk blocks. ormatting 
a disk of this type destroys this history information and is ebsolutely 
not recommended except in the cases epee} tieaihy described in the disk 
drive's service manuel. These disks wre fully formatted when shipped 
from the factory, therefore there is no reason to run this formatter 
program at installation. 


Upon answering “TES” to the above question, the date will be asked 
for in the format used by the XXDP-+ system. 


ENTER DATE AS DD-MMM-YY (A) 1-JAN-70 7? 


Tne default is provided so the user need not suppl 
The date question will normally a asked one 
improper anawer is typed, “INPUT 

question is esked egain. A two or four d 
typed. A four digit year must be 1900 or greater (e3. 


y 
time. If an 
nted and the 


determined as follows: 


1. If the number typed is 70 or grester. a 19 is prefixed. 
Eg.. 1-JAN-70 transletes to year 1970 and 25-DEC-99 
trenslates to yeer 1999. 


2. If the number typed is less than 70, 2 20 is prefixed. Eg.. 
1-APR-21 is translated to year 2021. 


If RECONSTRUCT mode is selected, the following question will be asked 
for each disk before the format operation begins. 


att NUMBER FOR UNIT xx UDA AT xxxxxx DRIVE xxx 


A decimal number in the — of 0 to 18446744073709551615 
must be entered (no default). 


ae a neteenenemnes andein on: SOOT S Eb SUE re EE OTE SA eS Sw 
~ ee ome we - ~ on ~ ne om ee 
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If RESTORE mode ‘is selected, the following question will be asked. 


NAME OF FILE CONTAINING BAD SECTOR INFORMATION FOR 
DISK TO BE FORMATTED (A) ? 


If the file named does not exist on the system load device, 
the program will abort back to the XXDP+ prompt after printing 
an error message. 


2.7 EXTENDED P-TABLE DIALOGUE 


When you enswer the hardwere questions, you are building entries in a 
table that describes the devices under test. The simplest way to 
build this table is to answer ell questions for each unit to be 
tested. If you have ea multiplexed device such as a mass storage 
controller with severel drives or a communication device with severel 
lines, this becomes tedious since most of the answers ere repetitious. 


To illustrate ea more efficient method, suppose you ere testing s 
fictionel device, the XY11. Suppose this device consists of a control 
module with eight units (sub-devices) attached to it. These units are 
described by the octel numbers O th 7. Trere is one herdwere 
perameter that cen vary among units called the Q-factor. This 
Q-factor may be 0 or 1. Below is a simple way to build » table for 
one XY11 with eight units. 


@ UNITS (D) ? 8&<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 1<CR> 
Q-FACTOR (0) 1 ? O<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 3<CR> 
Q-FACTOR (0) 0 7? <CR> 


UNIT 5 

CSR ADORESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 


1 son nme ata i i CE CL CL AL LE LLL LL LLL ELLE LLL LAL AD — ee 
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UNIT 6 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) 2? S<CR> 
Q-FACTOR (0) 0? <CR> 
UNIT 7 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE © (0) 2? 6<CR> 
Q-FACTOR (0) 0? 1<CR> 


UNIT & 

CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE @ (0) ? 7<CR> 
Q-FACTOR (0) 1? <CR> 


Notice that the default value for the Q-factor changes when oa 
non -default response is given. Be careful when specifying multiple 
uni ts? 


As you can see from the above example, the herdwaere parameters do not 
“ery significantly from unit to unit. The procedure shown is not very 
efficient. 


The Runtime Services can take multiple unit specifications however. 
_et's build the same table using the multiple specification feature. 


@ UNITS (0D) ? &<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 2-5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 6,7<CR>» 
Q-FACTOR (0) 0 ? 1<CR> 


As you can see in the above dialogue, the runtime services will build 
@s many entries es it can with the information given in any one pass 
through the questions. In the first pass, two entries ere built since 
two sub-devices and a-factors were specified. The Services essume 
thet the CSR eddress is 160000 for both since it wes specified only 
once. In the second pess. four entries were built. This is because 
four eub-devices were specified. The "-" construct tells the Runtime 
Services to increment the data from the first number to the second. 
In this case, sub-devices 2, 3, 4 and 5 were specified. (If the 
sub-device were specified by addresses, the increment would be by 2 
since addresses must be on an even boundary.) The CSR addresses and 
Q-factors for the four entries ere aseumed to be 160000 and 0 
respectively since they were only specified once. The last two units 
ere specified in the third pass. 


ee << Ne Ree RUE? re RE. REET te een revert =~ ee eee 
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— whole process could have been accomplished in one pass as shown 
be low. 


@ UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? O-7<CR> 
Q-FACTOR (0) 0 ? Oid Seeded citi 


As you can see from this example, null replies (commas enclosing 
eal field) tell the Runtime Services to repeat the last reply. 


2.8 QUICK START-UP PROCEDURE 


To start-up this program: 
1. Boot XXDP+ 


2. Give the date and answer the LSI and SOHZ (if there 
is a clock) questions 


3. Type “R ZUDEDO” 

4. Type “START” 

S. Answer the “CHANGE HW” question wth “Y” 

6. Answer all the hardware questions 

7. Answer the “CHANGE SW” question with “N” 

8. Answer “Y" to the “ARE YOU SURE ..." question following the 

porns hia uaststen disk drive's service manual before 
Type today’s date. 

When you follow this procedure you will be using only the defaults for 


legs and software peremeters. These defaults sre described in 
sections 2.3 and 2.5. 


Ye) 


ad 
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Sample of terminal dialogue to test two disks on one UDASO: 
DR>STA | 
CHANGE HW (L) ? Y 

@ UNITS (D) ?2 


UNIT O 

UNIBUS ADDRESS OF UDA (0) 172150 ? 
VECTOR (O) 154 ? 

BR LEVEL (D) 5 ? 

UNIBUS BURST RATE (D) 635 ? 

ORIVE NUMBER (D) 90? 0,1 


CHANGE SW (L) ?.N 


WARNING: 
THIS oo PROGRAM SHOULD NOT BE USED AS A DIAGNOSTIC 
TOOL. RUN THIS PROGRAM ONLY AS INSTRUCTED IN THE DISK 
ORIVE’S SERVICE MANUAL . 


ARE YOU SURE YOU WANT 10 RUN THIS FORMATTER (L) N ? Y 
ENTER DATE AS DD-MMM-YY (A) 1-JAN-70 ? 14-APR-82 
goad UDA AT ts DRIVE O RUNTIME 0:00:20 


on 8 
STOPPING HIS YFORMAT AFTER THIS POINT WILL MAKE THE DISK 
gt Ny ey CAUSE THE DISK TO BE SPUN DOWN WHEN 


bl UDA AT PR a DRIVE 1 RUNTIME 0:00:25 


on 8 
STOPPING ts YFORMAT AFTER THIS POINT WILL MAKE THE DISK 
UNUSABLE, AND WILL CAUSE THE DISK TO BE SPUN DOWN WHEN 
BROUGHT ONLINE. 


UNIT O UDA AT ag DRIVE O RUNTIME 0:42:20 
Format completed 
2 Revectored LBNS 
2 Primary revectored LBNS 
; i Secondery/tertiery revectored LBNS 
0 Sas blocke in the RCT erea due to dete errors 
0 Bed blocks in the DBN erea due to date errors 
0 Bad blocks in the XBN erea due to date errors 
2 Blocks retried on the check pass 
FCT used successfully 


SEQ 901% 
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UNIT 1 UDA AT 172150 DRIVE 1 RUNTIME 1:25:18 
format comleted 
131 Revectored i. BNS 
131 Pr’ aary revectored .BNS 
0 Secondery/tertiary revectored .BNS 
© Bed «c:.S 
1 Bad blocks in the RCT area due to dats errors 
0 Bed blocks in the DBN ereae due to data errors 
0 Bed blocks in the XBN erea due to data errors 
a Blocks retried on the check pass 
used successfully 


C2U0E EOP 1 
- O CUMULATIVE ERRORS 
> 


Semple of terminal dialogue going through software questions. 
Only one disk is being tested. 


DR>STA 

CHANGE Mw (L) ? N 

CHANGE SW (i) ? Y 

REFORMAT USING EXISTING BAD SECTOR INFORMATION (LL) ¥ ? 1 


WARNING: 
THIS FORMATTER PROGRAM SHOULD NOT BE USED AS A DIAGNOSTIC 
TOOL. RUN THIS PROGRAM ONLY AS INSTRUCTED IN THE DISK 
ORIVE'S SERVICE MANUAL. 


ARE YOU SURE YOU WANT TO RUN THIS FORMATTER (1) N ? ¥ 
ENTER DATA AS DD-MPMt-YY (A) 1-JAN-70 7? 14-APR-62 
PB pa dy 0: —~ ni 


on 8 
STOPPING MIS \FORMAT AFTER THIS POINT WILL MAKE THE DISK 
UNUSABLE, AND WILi CAUSE THE DISK TO BE SPUN DOWN WHEN 
BROUGHT ONLINE. 


RUNTIME 1:33:45 

Formet completed 
2 Revectored LBNS 
4 Primery revectored LBNS 

0 Secondery/tertiary revectored LBNS 

0 Bed RENS 
0 Bed blocks in the RCT sree due to date errors 
0 Bad blocks in the DBN erea due to date errors 
© Sed blocks in the XBN erea due to dats errors 
2 Blocks retried on the check pess 

FCT veed successfully 


CZUDE EOP 1 
tin O CUMULATIVE ERRORS 
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3.0 ERROR INP ORMATTON 


There are three ievels of error messages that may be ‘ssued by 5 
diagnostic: general, basic and extended. General error messages are 
always printed unless the “IER” flag is set (section 2.35). The general 
error message is of the form: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XxAXxXKE 
error message 


where: NAME « diegnostic neme 
TYPE «= error type (SYS FTL ERR, DEV FTL ERR) 
NUMBER = error number 
UNIT NUMBER = 0 - N (N is lest unit in PTABLE) 
TST NUMBER = test and subtest where error occurred 
PC: XXXXXX = address of error message cell 


System fetel errors (SYS FTL ERR) are uveed to report errors that are 
fatal to the entire diagnostic program. The diagnostic stops end tne 
Runtime Services prompt is printed. 


Device fatel errors (DVC FIL ERR) ere used to report errors thet sare 
fatal to the device (may be either @ UDASO or disk drive). Testing 
stops on that device for the remsinder of the current test. 


Besic error messages ere that contein some eddi tional 
information ebout the error. hese are elwsys printed unless the 
“IER” or “IBE“ flege ere set (section 2.5). These messages ore 
printed after the essociated generel message. 


Extended error messeges contain supplementary error information such 
as register contents or good/bed dete. These are always printed 

unless the “IER”, “IBE“ or “IXE” flags are set (section 2.5). Trese 
messeges ere printec after the essociated gereral error message anc 
any sesociated besic error messages. 


Tre ars and basic error messages from this diagnostic ere always 
one line each. The besic message defines wat program detected the 
error, the UDASO being used and the time of the error: 


HOST PROGRAM UDA AT xxxxxn RUNTIME Arh: om: 6s 
The host program (PDP-11) detected the error. UDA AT xxxxx 


identifies the eddress of the UDASOC being tested. It may be 
omitted if the error is not specific to one UDASO. 


i) 
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Semple error message: 


CZUDE OVC FTL ERR O0CO21 ON UNIT 00 TST 001 SUB O00 PC: xxmnns _ general message 
HOST PROGRAM UDA AT 172150 RUNTIME 0:00:1e basic message 
UDA RESIDENT DIAGNOSTICS DETECTED FAILURE ; 

UDASA CONTAINS 104041 )- extended message 
REPLACE UDA MODULE M7485 / 


Tre DUP progrem may also print error messages. They are printed 
pig es presented by the DUP program and cannot be suppressed by 
any egs. 


3.2 SPECIFIC ERROR MESSAGES 


-~-se eenrecensteeeeeenrmweenreqgqes eres = 


Following is ea list of the error messages that ma be printed by the 
diagnostic program. In the list. some of the re thet may very 
with execution or program version are shown as “xxx”. These include 
program counters and runtime. Other numbers, such as unit number, 
Grive number, UDASO address and date in registers ere filled with 
sample numbers. Additional information ebout the error may folion tne 


error message. 


00001 


00002 


CZUDE SYS FTL ERR 00001 ON UNIT OO TST O01 SUB OOO PC: xanxnxax 
HOST PROGRAM UDA AT 172150 RUNTIME x:xxn:xx 

I DON’T LIKE THE ANSWERS YOU GAVE TO THE HARDWARE QUESTIONS 
UDA HAS MORE THAN ONE VECTOR, BR LEVEL OR BURST RATE 


When the hardwere questions were enewered, two units were 
selected with the same UNIBUS eddress but with a different 
vector. BR level or burst rate. A si 





the hardwere quest ions. 


CZUDE SYS FTL ERR 00002 ON UNIT OO TST 001 SUB 000 PC: xxannxa 
HOST PROGRAM UDA AT 172150 RUNTIME x:xxsxx 

I DON’T LIKE THE ANSWERS YGU GAVE 10 THE HARDWARE QUESTIONS 
TWO UNITS SELECT THE SAME DRIVE 


The hardwere questions for two unite were exactly the same. 
Tre progrem is eborted and returns to the Runtime Services 
promet so that you can change the hardware questions. 


a UDASO can have only 
one vector. BR level or oSuret rete. The progres is aborted and 
returns to the Runtime Services prompt so that you can crange 


fy 0016 
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00005 


00010 


C2UDE SYS FTL ERR 00003 ON UNIT OO TST 001 SUB 000 PC; xxxnnn 
HOST PROGRAM UDA AT 172150 RUNTIME xiarinx 

I DON'T LIKE THE ANSWERS YOU GAVE TO THE HARDWARE QUESTIONS 
MORE THAN EIGHT DRIVES SELECTED ON THIS UDA 


Up to four physical disk drives can be attached to a VASO at 
one time. A physicel di ek drive may be from one to four 
logical disk drives. Each logical disk drive is cons: dered one 
unit to the di agnostic program. Even though more than ht obs 
legions disk drives can be attached to one UWDASO, the WO 50 
only supports eight. The program is aborted and returns to the 
Runtime Services prompt so that you can change the hardware 
questions. 


CZUDE SYS FTL ERR 00004 ON UNIT OO TST O01 SUB 000 PC: xxnnunxx 
HOST PROGRAM RUNTIME x:xx:xx 

NOT ENOUGH ROOM IN MEMORY TO TEST THE UNITS ees "ee 

PLEASE START PROGRAM OVER AND TEST FEWER UNITS AT A TIME 


Tris caet oy does not limit the number of wnits thet cen 
be tested by specifying @ maximum number. Whet limits 
the number te the amount of memory used to store deta 
on each unit. You have exceeded the number of unite 

that ere testable et one time. Stert program over and 
se'ect fewer units. 


CZUDE SYS FTL ERR 00008 ON UNIT OO TST O01 SUB 000 PC: xanaxx 
wae PROGRAM UDA AT 172150 RUNTIME a:xun:iux 

I DON’T LIKE THE ANSWERS YOU GAVE TO THE HARDWARE QUESTIONS 
TWO UDA'S USE THE SAME VECTOR 


Tre hardware questions se two units specified different 

UDASO Unibus eddresses but identicel vector eddresses. The 

= is aborted and returns to the Runtime Services promt 
t you cen change the herdware questions. 


CZUDE DVC FIL ERR 00009 ON UNIT O00 TST 001 SUB 000 PC: xxnaxx 
HOST PROGRAM RUNTIME x:anixx 

ONLY ONE DISK CAN BE SELECTED IN 4 QUESTIONS IN RESTORE MODE. 
PLEASE START PROGRAM OVER AND SELECT ONLY ONE DISK. 


If the operator chooses to rum the formatter in RESTORE 

mode, then only one disk cen be selected in the hardware 
questions. RESTORE mode is run in thie way becouse 

e file containing the bad block information is used and 

thet information matches only one drive. 


CZUDE DVC FIL ERR 00010 ON UNIT OO TST O01 SUB 000 PC: xxuxxxn 
HOST PROGRAM RUN ME MAIRK 


T 
THIS PROGRAM CAN ONLY REFORMAT A DISK IN UNATTENDED MODE 


This p em needs to ask questions of the operator. It 
refuses i tae im RECONSTRUCT and RESTORE modes because the 
quest ions tain deta that ie absolutely necessary. REFORMAT 
mode is sllowed to run because only ea date is needed. The 
default date of 1-JAN-70 is used. 


| 
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00014 


00020 


ZUDE DVC FTL ERR 00014 ON UNIT 00 TST 001 SUB 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME a:xxinx 

“DASO CONTROLLER IS AT A REVISION LEVEL NO LONGER SUPPORTED 
BY THIS FORMATTER PROGRAM, THIS PROGRAM REQUIRES A UDASO-A 
CONTROLLER (MODEL 6) WITH MICROCODE VERSION AT % OR GREATER. 


CONTROLLER REPORTED MODEL CODE xx AND MICROCODE VERSION ~~ 


All UDASO-0O's (modules 7161-2) ere not supported by this diag- 
nostic. The module set M7485-6 is the only one that can be tested 
by this diagnostic. If the controller is a VWOASO-0O (M7161-2) 

it will not be tested. If the controller is a UDASO-A (M7485-6) 
and it has old microcode (the microcode version is less than 

3) this meseage will be printed but testing will go on. If 

the controlle- consists of the M7161-2 modules, instell one 

with M7485 -6 modules. Do not intermix the two, it will not 

work ! 


CZUDE DVC FTL ERR 00020 ON UNIT OO TST 001 SUB 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x:xxrxx 

MEMORY ERROR TRYING TO READ UDA REGISTERS 

CHECK UNIBUS SELECTION SWITCHES ON UDA MODULE M7485 

OR UNIBUS 

OR REPLACE UDA MODULE M7485 


A non-existant memory error occurred when the host or am 
tried to eccess the UDAIP and UDASA registers. The UD 

is at enother eddress (check the UNI selection switches) 
or module M7485 is broken or the UNIBUS is broken. 
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00021 


(5 


CZUDE CVC FTL ERR 00021 ON UNIT OO TST 001 SUB 000 PC; xxuxxn> 


HOST PROGRAM UDA AT 172150 RUNTIME x:xrsnm 

UOA RESIDENT DIAGNOSTICS DETECTED FAILURE 
UDASA CONTAINS 105154 

REPLACE UGA MODULE M7486 


Tre UDA Resident diagnostic detected oa failure. 


The 


error is displayed in the UDASA., Here are the possible 


error velues and their meaning: 


SERDES error 
S, RSGEN, and ECC error 


104000 Fatel sequncer error 

104040 D processor ALU error 

104041 D proc ROM parity error 

105102 - D proc with no Board 02 or RAM perity error 
105105 - D proc RAM buffer error 

105152 - D proc SOI error 

105153 - D proc write mode wr 

105154 D proc read mode SE 

106040 - VU proc ALU error 

106041 - U proce Control Register error 
106042 - U proc DFAIL/ROM 

106047 - U proc Constant ROM error with 0 


106071 - VU proc ROM error 

196072 - U proc ROM parity error 

1 Step 1 dete error (MSB not set) 
107103 - U proc RAM parity error 

107107 U proc RAM buffer error 

107115 - Boerd #2 test count «was «rong 
112500 - Step 2 error 

122240 - NPR error 

122300 - Step 3 error 

142300 Step 4 error 


Replace the boerd specifie:. 7485 is the Unibus 


interface boerd. "7486 is the SOI interface board. 


- perity error/Boerd 61 test comt is wrong 
> proc running SOI test 
106055 - Unexpectant trap found, aborted diagnostic 


a 
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00022 


00025 


00024 


JUDE OVC FTL ERR 00022 ON UNIT OO TST 001 SUB 000 PC; xxnnnx 
HOST PROGRAM UDA AT 17215G RUNTIME xinrinn 
STEP BIT DIO NOT SET IN UDASA REGISTER DURING INITIALIZATION 
STEP BIT EXPECTED 004000 

UDASA CONTAINS 000000 
REPLACE UDA MODULE M7485 


Tre UDA did not respond as expected during the 
initialization sequence which commun: icates using dete 
in the UDASA register. A normal r se from the UDA 
contains either a STEP bit or an ERRUS bit defined as 


follows: 

Bit 15 €100000) Error bit 

Bit 14 (040000) Step 4 bit 

Bit 13 (020000) Step 3 bit 

Bit 12 (010000) Step 2 bit 

bit 11 (004000) Step 1 bit 
Tne expected step bit nor the error bit set within the 
expected time. 


iy OVC FTL ERR 00023 ON UNIT OO TST 001 SUB 000 PC: xxaxxxx 
MC >T PROGRAM UDA AT 172150 RUNTIME x:xx:xx 
UDA DID NOT CLEAR RING STRUCTURE IN HOST MEMORY OURING INITIALIZATION 
6 WORDS WERE TO BE CLEARED STARTING AT ADDRESS 040644 
FIRST SEVERAL WORDS NOT CLEARED (UP TC 6): 

ADDRESS CONTENTS 

040644 000010 

040650 000010 


040652 
REPLACE UDA MODULE M7485 


The UDA is to clear the ri etructure (a communications srea 
used by the UDA to telk to host) in host memory before 
Step 4 of initielizetion. If the UA diagnostics did not 
clear memory and did not fleg an error, then error message 
00023 is diepl . The contents of each word in memory 

is set to 177777 before the test. Feilure of the UDA 

to cleer each word indicetes ea fault in the address 

interfece to the Unibus. 


CZUDE DVC FTL ERR 00024 ON UNIT 00 TST 001 SUB 000 PC: xxxannnx 
HOST PROGRAM UDA AT 172150 RUNTIME a:xnixx 
UDASA REGISTER DID NOT GO TO ZERO AFTER STEP 3 WRITE OF INITIALIZATION 
PURGE /POLE DIAGNOSTICS WERE REQUESTED 

UDASA CONTENTS 004400 


For better testing, the host can test the PURGE and POLE 
mechanism of the UDA. To do so the host sets bitiS of the 
step 3 date and sends the data to the UDA. The UDA must 
go to zero and wait for the purge and pole. If the UDA 
never went to zero, then error message 00024 is displayed. 
Tne UDA may heve a bad M7485 module or the UNIBUS may be 
oroken, 


Pu “ 97029 
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09025 JUDE DVC FTL ERR 00025 ON UNIT OO TST 001 SUB 000 PC; xxxnnx 
HOST PROGRAM UDA AT 172150 RUNTIME x:xx:xx 
VUOA DID NOT RETURN eee gl DATA IN UDASA REGISTER DURING INITIALIZATION 


UDASA CONTAINS 004000 
REPLACE UDA MODULE M7485 


For each step of initialization, specific data is expected 
to be displayed in the JOASA. If the UDASA does not match 
the expected data, then error message 00025 is displayed. 
Replace UDA module M7485. 


00030 CZUDE OVC FTL. ERR 00030 ON UNIT OO TST 001 SUB 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x:xx:»x 
UDA REPORTED FATAL ERROR IN UDASA REGISTER WHILE RUNNING OM PROGRAM 
UDASA CONTAINS 100004 


A message ‘rom the UDA firmware reports an unexpected 
failure. An error code is presented in the UDASA. 
Here is » list of the codes end their meanings: 


004400 - UDA nes been inited by either ea bus init or by 
uriting into the UDAIP. 
UNIBUS 






100001 - envelope/packet read error (parity or timeout) 
100002 - UNIBUS envelope/pecket write error (parity or timeout) 
100003 - UDA ROM and RAM perity error 

100004 - UDA RAM perity error 

100005 - UDA ROM perity error 

100006 - UNIBUS ring reed error 

100007 - ring write error 

100010 - UNIBUS interrupt mester failure 

L00011 - Host eccess timeout error 

100012 - Host exceeded credit limit 

100013 - UDA SOI hardware fetel error 

100014 - OM XFC fetel error 

100015 - Hardware timeout of instruction loop 

100016 - Invelid virtual circuit identifier 

100017 - Interrupt write error on UNIB8US 


00031 CZUDE OVC FIL ERR 00031 ON UNIT OO TST 001 SUB 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 RUNTIME x«:xx:xx 
NO INTERRUPT RECEIVED FROM 0M PROGRAM FOR 3 MINUTES 
ASSUME PROGRAM IS HUNG 


All OM programs ere required to communicate with the 
host program; so as to sseure the host po eam that 
the OM program is not hung up or in en endless loop. 
If the OM program has not done so, the host program 
essumes the DM is hung end this message appears. 


42 
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00032 CZUDE OVC FTL ERR 00032 ON UNIT 00 TST 901 SUB 000 PC; xxxxnx» 


HOST PROGRAM UDA AT 172150 RUNTIME x«:axsxx 


MESSAGE BUFFER RECEIVED FROM DM PROGRAM WITH UNKNOWN REQUEST NUMBER 


MESSAGE BUFFER CONTAINS: 
000001 000002 000003 000004 000005 000006 900007 
000008 000009 000010 000011 000012 000013 000014 
000015 000016 900017 000018 000019 000020 000021 
000022 000023 000024 000025 000026 000027 000028 
000029 000030 000031 000032 000033 0000354 000055 


00033 
00034 


The OM progrem and the host program communicete with 
each other using packets. Each packet must have oe 
request number set up by the 0M program and interpreted 
by the host program. This request number is not oe 
known request number. The problem may be the UNIBUS 
or either one of the UDA modules or e corrupted DM 
program. Word 1 contains the DM request number, and 
word 2 typically contains the drive number. The rest 
of the buffer contains information specific to a 

DOM request. The numbers in the example show 

the order in which words ere displayed. 


CZUDE DVC FTL ERR Q00335 ON UNIT 00 TST 001 SUB 000 PC: xxxxxx 
HOST PROGRAM UDA AT 172150 


RUNT KIMMIE RK 
PACKET FROM UDA DOES NOT CONTAIN EXPECTED DATA 


RESPONSE 
oa UDA RETURNED ERROR STATUS OR PACKET WAS NUT RECEIVED CORRECTLY 


PACKET SENT RESPONSE PACKET RECEIVED 
000020 000000 000020 


000000 

000000 000000 

000000 000002 

000000 014556 

000000 034674 
000000 


000000 000000 
000000 051232 


000000 000000 
000000 000202 
000000 014336 
000000 034674 


000000 000000 
000000 0512352 
000000 


000003 000000 000000 

000000 000000 000000 000000 
000000 060000 000000 000000 
000000 000000 G00000 000000 


‘he host progrem inspected the response packet which was 
given by to UDA. The response packet may have been in 


error with one of the following points: 
1) The end code was not as expected. 


2) The stetus code showed en error occurred with the 


lest command. 


3) Tre command reference numbers (the first word) did 


not match. 


If 1 or 3 occurred, there may nave been a transmission 
problem between the UDA and the host progrem. If 2 occurred, 
check the error code in the MSCP specification for further 
information. The peckets ere displayed two long words 

per line, low order word and byte to the right 
(corresponding to the MSCP long-word entity). 


AOS A gs eG te A ae A LS EE AES TS LE TT wen ere ~—— wees 


SEQ 9022 


| 
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000 36 


00037 


00100 


00101 


CZUDE OVC FTL ERR ©00036 ON UNIT OO TST 001 SUB 000 PC: xxnnnx 
HOST PROGRAM UDA AT 172150 RUNTIME x:axixx 

NO INTERRUPT RECEIVED FROM UDA FOR 30 SECONDS 

WHILE LOADING DM PROGRAM 


After ea DM program has been sent to the UDA, the host 
progrem expects an interrupt within 50 seconds. Ine 
interrupt is used to assure the host progrem thet the 
DM program is sane. If no interrupt occurred, then 
error message 00036 is displayed and the DM program is 
assumed to be hung. 


CZUDE DVC FTL ERR 00037 ON UNIT OO TST 001 SUB 000 PC: xxxxxx 

HOST PROGRAM UDA AT 172150 RUNTIME x;xx:xx 

UDA REPORTED FATAL ERROR IN UDASA REGISTER WHILE LOADING DM PROGRAM 
UDASA CONTAINS 100004 

REPLACE UDA MODULE M7485 


While loading the DM program to the UDA, the UDASA 
became non-zero. When this occurs, it signifies that 
the UDA microcode hes run ecross a fatel error. The 
displayed velue is in octel. Check the error code with 
the list in 00030. 


CZUDE OVC FTL ERR 00100 ON UNIT OO TST 001 SUB 000 PC: xaxaxx 
HOST PROGRAM UDA AT 172150 RUNTIME a:xx:sax 
DUP PROGRAM ASKED UNEXPECTED QUESTION (25) 


Tre DUP program sends a value thet corresponds to 
e specific question or message. If this velve does not 
fit into the renge of questions, then this error appears. 


CZUDE DVC FTL ERR 00101 ON UNIT OO TST 001 SUB 000 PC: xxxxaxx 
HOST PROGRAM UDA AT 17215C RUNTIME x:xxsxx 
DUP PROGRAM REJECTED ANSWER TO DATE OR SERIAL NUMBER QUESTION 


After the operator inputs the dete/seriel number, the 
OUP progres will ask the host program for them. If for 
some reason the date/serisal number was unacceptable to 
the DUP program, this error messege will appear. Retry 
the program and if this error appears agesin, get out 
of the diagnostic runtime services and back to the 
XXDP+ prompt and reload the program. 


SEG 90025 


S 
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3.2.2 OUP PROGRAM ERROR MESSAGES 


Error messages returned by the UDA formatter are as follows: 


GET STATUS failure 


This could be caused by a number of reasons. Examples: the 
RUN/STOP switch is out, the WRITE PROTEC’ switch is in, or the 
DIAGNOSTIC REQUEST bit is set by the drive. 


SOI send error 


An attempt to send an SDI command failed. fhe signal 
RECEIVER READY was not asserted. 


Unsuccessful SDI command 


Tne response from an SDI command was unsuccessful and all commands 
should be successful for the formetter to work. There may be ea 
cable problem, ¢rive receiver problem or UDA transmitter problem. 


SOI receive error 


This message is presented for several reasons. The drive timed out, 

the first word from the drive was not e start frame, there was so framing 
error on the SDI level 0 read (cable/receiver/tranemitter problem), 
checksum error, or the buffer size given by the formatter wasn’t large 
—_ for the UDA. Again, there may be a cable/receiver/transmitter 

p em 


UNIBUS read error 
This is ceused by one of two problems. While trying to read en overlay 
into the UDA buffer memory, the formatter came across a nonexistent memory 
error. Or, there wes oe failure while downline loadi the bed block 
—— There may be something wrong with the UNIBUS or the UDA module 


Formatter initialization error 


For this error to occur, the UDA must be processing the 0M code improperly. 


Non-existent unit number 
The desired disk drive wasn't attached to the UDA. 


Ee I SOE ER CRN See REE Se ee Ee 


aoe = we ee ree Se 


€G 0024 
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DBN/XBN format error (drive FORMAT command fai led) 
All attempts and retries to format a track failed. There may nave been 
a timeout of drive signals, the drive dropped the READ/WRITE READY 
signal during the format operation or the drive clock timed out (which 
indicates cable/transmitter/receiver failures). 
FCT does not have enough good copies of each block 
There must at least two good copies of every block in the FCT. For 
tnis error to occur, the media is badly corrupted or the resd/wmr ite 
logic is failing. 
SEEK error 


After a seek command completed successfully, tne READ/WRITE READY 
signel was never set or the ATTENTION signal was set. 


RCT does not have enough good copies of each block 
There must be at least two good copies of every block in tme RC7. For 
this error to occur, the media is badly corrupted or the read/write 
logic is failing. 

LON format error (drive FORMAT command failed) 
All attempts and retries to format ea track failed. There may have beer 
e timeout of drive signals, the drive dropped the READ/WRITE READY 
signal during the format operation or the drive clock timed out (which 
indicates cable/transmitter/receiver failures). 

FCT write error 
A perticuler block failed to be written into every copy of the FCT. 
There is either terribly bad media or a write logic failure. 

RCT read error 
The formatter could not read st least one good copy of ea particular 
block in the RCT area. 

RCT write error 


A particular block failed to be written into every copy of the RCT. 
There is either terribly bad media or eo write logic failure. 


00: 


J 
~f€ , 
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RCT full 
There were so many bad blocks on the media that the RCT erea was 


filled and could not hold any more. There could be read/write 
logic failure or bad cable connection. 


FCT read error 


The formatter could not read at least one good copy cf eo particular 
block in the FCT area. 


FCT downline-load error 


The formatter was led to believe that se bad block information file 
—_ than it reslly wes. There may be e UNIBUS or M7485 
or em. 


Drive init timeout 


After the drive was inited, the RECEIVER READY signel never asserted. 


Illegel response to stert-up question 
An overflow occurred when the serial number went over 64 bits. 


FCT corrupted - Format Invalid 


A problem was detected while using the date in the FCT. Either 
the date was not written properly or it has been corrupted since the 
last format. The format on the disk is no and the disk will not be 
usable by any DEC operating system. Running the formatter again may 
have e slight chance of succeeding. Otherwise, replace the disk or HDA. 
If you do not have ea spere disk or HDA you may try to format the disk jn 
RECONSTRUCT mode. If the disk is not an RABO, order o replacement disk 
or HDA immedistely. 


i EK 
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DRIVE ERROR ENCOUNTERED - STATUS RESPONSE: 
STATUS (R TOU): IAFL 0304 E100 8800 0080 0015 1000 
LAS! BLOCK ACCESSED (16-BIT OCTAL): 000000 000000 


Tre disk drive reported an error. You may see the drive's fault 
Light come on. The formatter will attempt to clear the error 

in the drive and continue. This error does not mean that 
anything is necessarily wrong unless this error is printed many 
times. If you see many of these errors, you may wish to stop 
the format and run di tics on the disk drive. But remember, 
if you stop the formatter the disk will not be usable and the 
diagnostics will report the formet is bed. ihe drive's status 
is presented in hexidecimal in the same format as the diagnost ic 
programs. The lest block accessed is a representation of the 
lest block header written onto the disk. 


MORE THAN 12.58 OF TRACK IS BAD 


Tre formatter found more than one eighth of the blocks on a 
single track bed. [his error does not mean that anything is 
necessarily wrong wnless this error is printed may times. if 
you see many of these errors, you may wish to stop the format 
and run diagnostics on the disk drive. But remember, if you 
stop the formetter the disk will not be usable and the 
diagnostics will report the format is bed. 


An examole of how tre errors sre presented is below: 


RUNTIME 0:00:18 
Non-existant unit number 
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4.0 PERFORMANCE AND PROGRESS REPORTS 


Trere is nro statistical report that can be printed using the 
Diagnostic Runtime Services PRINT command. 


Tre DUP program issues the following messages upon normal 
completion: 


Format completed 
-m Revectored LBNS 
Where nm is the number of LONs revectored in the user dates ares. 


n Primary revectored LBNS 


Where mn is the number of LUNs which were orimary revectors. 


n Secondary/teritary revectored LBNS 
Where n is the number of the LBNs which were secondary or 
tertiary revectors. 

nm Bad RBNS 


Where n is the number of RBNs which were bad. 


Bad blocks in the RCT area due to date errors 


3 


Wrere n is the number of blocks in the totel RCT srea which 
were bed. 

nm Bad blocks in the DBN erea due to date errors 
Where n is the number of blocks in the totel DGN erea which 
were bad. 

n Bad blocks ‘in the XBN ares due to dets errors 


Where mn is the number of blocks in the total *BN eres which 
were bad. 


LJ 
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mn Blocks retried on the check pass 


Where n is tre number of blocks which had an error on the first 
read attempt after formatting. 


FCT used successfully or 
FCT was not used 


Depend: on the answers to the software questions and the 
aveilability of the bad sector information (FCT), one of these 
messages will be printed. 


An example of now the messages are presented is below. 


RUNTIME 1:24:57 

Format com leted 
5S Revectored LBNS 
5 Primary revectored LBNS 
0 Secondary/tertiary revectored LBNS 
0 Bed RBNS 
O Bad blocke in the RCT erea due to dets errors 
0 Bed blocks in the DBN eree due to dete errors 
0 Bad blocks in the XBN area due to dete errors 
5S Blocks retried on the check pass 

FCT was not used 


5.0 TEST SUMMARIES 


Tnere is only one test in this program - Test 1. Its only purpose is 
to load and run the formet program in e UDASO. 


ZUDEDO PDP il 


PROGRAM 


ME ADE 


.SBTTL PROGRAM HEADER 


BGNMOD 
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: THE PROGRAM HEADER IS THE INTERFACE BETWEEN 


POINTER BGNSW, SGNsafT, BGNSETUP 
HEADER CZU0E,0,.0,7200.,1,PRIO?7 


; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR, 


iL $NAME:: 

-ASCII 

-ASCII 

,ASCII 

-ASCII 

-ASCII 

-BYTE 

-BYTE 

-BYTE 
L_$REV:: 

-ASCII 
L$DEPC:: 

-ASCII 
LSUNIT:: 
LSTIML:: 
LSHPCP: =: 

- WORD 
_SSPCP:: 

-WORD 
L SHPTP:: 

. WORD 
LSSPITP:: 

. WORD 
t SLADP: : 

- WORD 
LSSTA:: 

. WORD 
Lsco:: 

. WORD 
LSOTyYP:: 

- WORD 
LSAPT:: 

. WORD 
LSOTP:: 

. WORD 
LSPRIO:: 

. WORD 
LSENVI:: 

. WORD 
LSEXPi:: 

. WORD 
L $SMREV:: 

.BYTE 


BYTE 


_ $SwW 
LSLAST 
6 

9] 

i 

© 


LSDISPATCH 


PRIQ? 
0 
Q 


CSREVISION 


CseEDIT 


vt “a 9040 


PROGRAM HE ADE 
002052 


000000 
003500 
104035 
000000 
021100 
022116 
022114 
021072 
000000 
000000 
000000 


[ 
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te 


, 


ee ee nan 


LSer:: 
D 
L$SPC:: 
L $DEVP:: 
WORD 
LSREPP:; 
LSExXP4:: 
- WORD 
LSEXPS:: 
- WORD 
. SAUT:: 
WORD 
L$OuUT:: 
- WORD 
LSLUN:: 
- WORD 
. $DESP:: 
- WORD 
L $LOAD:: 
EMT 
LSETe:: 
- WORD 
LSICP:: 
. WORD 
LSCCP:: 
. WORD 
LSACP:: 
.WORD 
LSPRT:: 
. WORD 
LSTEST:: 
. WORD 
LSOLY:: 
. WORD 
LSHIME:: 
. WORD 


0 
0 
0 


_sOvTre 


oo 0 «8h lO 


9) 

i SDESC 
E $LOAD 
0 
LSINIT 
L SCLEAN 
LSAUTO 
LSPROT 
& 

9) 

8) 


il 
CISPATCH TABLE 


Bw LS wlre 


é 
£88 
ree 
MN ro 
mmr 


002124 


UDA DRv FMTR MACRO VO5.00 [uesday 


000001 
022150 


.SB7TL DISPATCH TABLE 


34D 
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Te ‘ 
:; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST, 


DISPATCH 1 


et ee a ee 


; IT IS USED By THE SUPERVISOR [0 DISPATCH TO EACH TEST. 


. WORD 
LSDISPATCH:: 
. WORD 


SEQ 


Oto 
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DEF AAT HARDWARE P 


OOS. OY Hae 


~ 


TABLE 


Hl 4 


.SBTTL DEFAULT HARDWARE P - TABLE 


; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
; THE TEST-DEVICE PARAMETERS. 
; IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-1ABLES, 


DF PTBL 


172150 
154 

s 

63. 

0. 


THE STRUCTURE OF 


; AND IS USED AS A “TEMPLATE” FOR BUILDING THE P-TABLES. 


'H1S TABLE 


L $HiW: : 


OFPTBL:: 


UNIBUS ADDRESS 
VECTOR ADORESS 
BR LEVEL 


UNIBUS BURST RATE 
LOGICAL DRIVE NUMBER 


10000: 


SEG 9055 


i 10000 -. $HW/2 
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SOFTWARE P-TABLE 


ODP-~.0 Nk alr 


002142 
002142 
002144 
002144 


002144 
002146 
002146 


002146 


. SBT TL 


ee ee @¢ @s Ge @ 


SOFTWARE P - TABLE 


i 


THE SOFTWARE TABILE CONTAINS VARIOUS DATA USED BY THE 


PROGRAM AS OPERATIONAL PARAMETERS, 


THESE PARAMETERS ARE 


SET UP AT ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR 
AT RUN TIME. 


BGNSW 


. WORD 
ENOSW 


ENOMOD 


SFPTBL 


7 


; OF FSET 
; O. 


NE Oe EE REN ET RT 


L$SW:: 
SFPTBL:: 


USE 
YES/NO ANSWERS 
L10001: 


OE A EE ar 


SEG 9054 


i. 10001 -L$Sw/2 


G5 
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GLOBAL EQUATES SECTION 


ove ww ON & lhe 


002146 


002146 


.SBTTL GLOBAL EQUATES SECTION 
BGNMOO 


3°? 

; THE GLOBAL EQUATES og Ea al —_—e PROGRAM EQUATES THAT 
; ARE USED IN MORE THAN ONE 

, = 


EQUALS 
; BIT DIF INITIONS 


: 

BITiS+== 100000 
BIT14== 40000 
BIT13== 20000 
BIT12== 10000 
BIT11*= 4000 
BIT10O«= 2000 
BITO9== 1900 
BITOB== 400 
BITO7== 200 
BITOS== 100 
BITOS== 40 
BITO4== 20 
BITOS== 10 
BITO2== 4 
BITOl== 2 
BITOO=- 1 


; 

BIT9== BITO9 
BIT6== BITOs 
BIT7*= B8Ito7 
BITé== BITOG 
BITS*= BITOS 
BIT4== BITO4 
BIT3*= BITOCS 
BIT2== BITO2 
BITis= BITOL 
— BITOO 


; EVENT FLAG DEFINITIONS 
; EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


; 

EF .START== 32. ; START COMMAND WAS ISSUED 
EF .RESTART== Si. ; 

EF .CONTINUE== 30. ; CONTINUE COMMAND WAS ISSUED 
EF .NEW== 29. ; A NEW PASS HAS BEEN STARTED 
EF .PWR== 26. ; A POWER-FAIL/POWER-UP OCCURRED 
5 


; 
; PRIORITY LEVEL DEFINITIONS 


H 

PRIO7=<= 340 
PRIO6<== 300 
PRIOS== 240 
PRIO4<«= 200 


CE EE AE TLS LT TT, eT AR ee Ce -———— -_————— 


oe a OO ss 


a 
IK 4 
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PRIO3<= 140 


PRIO2== 100 
PRIO1L== 40 
PRIOO== C 

i 

;OPERATOR FLAG BITS 
. 

EVL«* 4 
LOT== 190 
ADR== 20 
TOU==« 40 
ISR=-= i 
JAM== 200 
BOE = « 400 
PNT «= 1000 
PRI== 2000 
IXE*= 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE == 100000 
CR- 15 


A SELES Te 


;VALUE TO PASS TO PRINT MACRO TO END LINE 


ceca tn ee ns aa Ai DA LLL LL LLL LLL ALLA LL 


co 
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GLOBAL EQUATES SECTION 


O@-.P hw 


10 


sMACRO DEFINITIONS FOR GLOBAL EQUATES 

; THESE MACROS ARE USED TO DEFINE INDEXES INTO A TABLE 
: 

;CALLING SEQUENCE MUST BE 


3 

; TABLE 

; ITEM NAME BYTES 
; ITEM NAME BYTES 
é ITEM NAME BYTES 
3 END SIZE 


; 

;TABLE DEFINES THAT A TABLE IS ABOUT TO BE DEFINED AND END TERMINATES THE DEFINITION. 
;ANY NUMBER OF ITEM LINES CAN APPEAR. NAME IS THE NAME OF THE SYMBOL BEING EQUATED TOC 
;THE INDEX. THE INDEX ALWAYS STARTS AT ZERO. BYTES SPECIFIES THE SIZE OF THE VALUE TO BE 
;STORED AT THAT INDEX IN BYTES. THE SIZE ARGUMENT TO THE END STATEMENT IS OPTIONAL, IT 
;BE EQUATED TO THE SIZE OF THE TABLE IN BYTES. THE SYMBOL TINDEX IS USED TO KEEP TRACK 
;OF THE INDEX VALUE AND WILL BE EQUAL TO THE SIZE OF THE TABLE AFTER THE END STATEMENT. 


-MACRO TABLE 


TINDEX=0 
. ENOM 
.MACRO ITEM NAME BYTES 
NAME = T INDE Xx 
TINDEX=TINDEX+BYTES 
. ENDM 
-MACRO END SIZE 
IF NB SIZE 
SIZE *T INDEX 


. ENOM 


ee — eowuse. ee eee - ee eee ee ~ - we — eee = 
eS we - — mon & 7 - ote te ere, - ~< ee 


Ms 
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;UDA BIT DEFINITIONS 
;UDASA REGISTER UNIVERSAL READ BITS 


SA.S1= 004000 
SA.S2= 010000 
SA.S3= 020000 
SA.S4= 040000 
SA.ERR= 100000 


;UDASA REGISTER ERROR STATUS BITS 


SA.ERC= 005777 


;UDASA REGISTER STEP ONE READ BITS 


SA.NV= 002000 


SA.VEC= 000177 
000200 


SA.STP= 100000 


SA.MSi* 000400 
SA.CM1= 004000 


;UDASA REGISTER STEP TWO READ BITS 


i 
SA.STE= 000200 
SA.CTP= 003400 


;UDASA REGISTER STEP TWO WRITE BITS 


SA.PRG= 000001 
3 177776 


EE AT LS oe a 


;STEP 1 STATUS BIT 
;STEP 2 STATUS BIT 
;STEP 3 STATUS BIT 
sSTEP 4 STATUS BIT 
s;ERROR INDICATOR 


;ERROR CODE 


sNON SETTABLE INTERRUPT VECTOR 
s22 BIT ADDRESS BUS 

sENHANCED DIAGNOSTICS 

sALL BITS RESERVED 


; INTERRUPT VECTOR (OIVIDED By 4) 
ENABLE OURING INITIALIZATION 


BIT 
sSTEP - MUST ALWAYS BE WRITTEN A ONE 


;LSB OF MESSAGE RING LENGTH 
3LSB OF COMMAND RING LENGTH 


sMESSAGE RING LENGTH ECHO 
;COMMAND RING LENGTH ECHO 
;RESERVED 

;STEP ECHO 

s;CONTROLLER TYPE 


;ENABLE VAX UNIBUS ADAPTER PURGE INTERRUPT 
;LOW ORDER MESSAGE RING BYTE ADDRESS 


a ea 


- ——~ ee ree ER Ee 


NS 
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GLOBAL EQUATES SECTION 


O@~O?Ybwhe 


10 


;UDASA REGISTER STEP THREE READ BITS 


SA.VCE= 000177 
SA.INE= 000200 
SA.NVE= 000400 


: 003000 
;UDASA REGISTER STEP THREE WRITE BITS 
077777 


3 

SA.TST= 100000 

;UDASA REGISTER STEP FOUR READ BITS 
SA.MCV= 000017 

SA.CNT= 000360 

3 003400 

;UDASA REGISTER STEP FOUR WRITE BITS 
SA.GO= 000001 


SA.LFC= 000002 
SA.BST= 000374 


CO A OE TS ES XT 


s INTERRUPT VECTOR ECHO 

; INTERRUPT ENABLE ECHO 
;VECTOR NOT PROGRAMMABLE 
;RESERVED 


;HIGH ORDER MESSAGE RING BYTE ADDRESS 
;PURGE POLE TEST ENABLE 


;UDA MICROCODE VERSION 
sCONTROLLER MODEL 
sRESERVED 


;GO BIT TO START UDA FIRMWARE 
;LAST FAILURE CODE REQUEST 
;sBURST LEVEL 


SEQ 00329 


ZUDEDO PDP. 11 UDA DRY FMTR MACRO 
GLOBAL EQUATES SECTION 


MH OOD i OF alin 


* &* © & 
ma 


100000 
040000 


000001 
177777 
001006 


het 
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; COMMAND ‘MESSAGE DESCRIPTOR BIT DEFINITIONS 


RG.OWN= 100000 
RG.FLG* 040000 


sSET WHEN UDA OWNS RING 
sFLAG BIT 


;0FF SETS INTO HOST COMMUNICATIONS AREA WITH ONE DESCRIPTOR 10 EACH RING 


;AND TWO PACKET AND BUFFER ARE"®, 


9 
wv 
oad 
, 

© Ganee 


MC .MSG* HMC. INT HC. ISZ 
HC .MCT« HO .MSG-e2. 
HC.CMD= HC .MSG+HC .RSZ 
HC .COT= HC .CMDe2. 
MC .MEV= HC. CMD-HC.RSZ 
HC .MPK: HC .MEVeHC, 
HC. CEV=: HC .MPK-MC. 
HC. CPX « + - ey orm -ES 
HC.6F ie HC .CPK-HC. 


PSZ 
HC .BF2= HC. BF1I+HC.BS7 
HC.SIZ* WC .BF2+HC .8SZ 


sVIRTUAL CIRCUIT IDENTIFIERS 


MSCP = 0 
LOG= i 
DIAG- <. 
OUP « 1000 


sSIZE OF INTERRUPT = WORDS 
sSIZE OF RING IN BrT 

sSIZE OF ENVELOPE WORDS BEFORE PACKET 
sSIZE OF COMMAND AND MESSAGE PACKETS 
sSIZE OF BUFFER 


; INTERRUPT gp allay WORDS START 


3 MESSAGE PACKET START 
;COMMAND ENVELOPE START 
* COMMAND PACKET START 
;FIRST BUFFER 

;SECOND BUFFER 


;TOTAL SIZE GF HOST COMM AREA 


sMSCP CIRCUIT 

3L0G CIRCUIT 

sDIAGNOSTIC CIRCUIT 

sDIAGNOSTIC AND UTILITIES PROTOCOL 


C4 
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~ 


+O Shin’ 


es e: Gc 6+ @8 G+ Ge Gs G+ os Gs Gs Se Ge Gf St GF Gs Ge BF Ge Ge SF Ge GB GF OF Be Bt BF OF OF Ge oF 


HC. INT 
HC .MSG 
HC .MCT 


HC. CMO 
mC .CCT 


MC . MEV 
HC . MPK 


“INTERRUPT INDICATORS 


MESSAGE RING _ 
‘COMMAND RING 


vo @ewe#ee#ese*#ses#* # 


aoe e-eeeesew*eeeseed@éunreeeseeu#se#eees e@eoedweedeedtei#s+#ente##wt# 


oeee®eexe+fefeteewes#s*e«*e*#e##e#er @eeeuse#s:lses* fs # ee ee ee ee 


~“~se @exsseoeeeaseeweg#ekegsegeso#-w7reFreerrreeF © ee ee ee ee ee ed 


rr - - * + = ee _ ssa ese - *e we ee we we eeeeremlc rmhlUcrmlUlUcrrhlUlUc rr oC HH eo UF + 


4 
6e VO CS STS te & TS SSS StS se + FHSS | THN © ee -@ 8 


4 BvTES 


4 Brite 


4 9rtes 


$2 BITES 


Se BYTES 


62 BrTtEes 


62 SYTES 


04) 


CDi ON & whe 


|) 44 
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;COMMAND PACKET OPCODES 


OP . ABO i ;ABORT COMMAND 
OP.aCcC= 20 sACCESS COMMAND 
OP .AVL= 10 sAVAILABLE COMMAND 
OoP.cCD- 21 3 COMPARE CONTRGLL ER DATA COMMAND 
OP .CMP= 40 ;COMPARE HOST DATA COMMAND 
OP .ERS= 22 sERASE COMMAND 
OP .FLU= 23 cen COMMAND 
OP .GCS= 2 3;GET COMMAND STATUS COMMAND 
OP .GUS= 3 iGET UNIT STATUS COMMAND 
OP.ONL= 11 ;ONLINE COMMAND 
OP .RD= 41 sREAD 
OP .RPL = 24 sREPLACE COMMAND 
oPp.scC= 4 | 3SET CONTROLLER CHARACTERISTICS COMMAND 
oP.suC- 12 sSET UNIT CHARACTERISTICS COMMAND 
OP. .WR=e 42 sWRITE 
OP .MRD= 30 sMAINTENANCE READ COMMAND 
OP .MWR= 31 sMAINTENANCE WRITE COMMAND 
OP .END= 200 sEND PACKET FLAG 
OP .SEX= ? : SERIOUS EXCEPTION END PACKET 
OP .AVA= 100 AVAILABLE ATTENTION MESSAGE 
OP .OUP=- 101 sOUPLICATE UNIT NUMBER ATTENTION MESSAGE 
OP .SHC= 102 :SHMADOW COPY COMPLETE ATTENION MESSAGE 
OP .RALC= 105 SRESET COMMAND LIMIT ATTENTION MESSAGE 
OP .GOS= 1 ;0UP GET DUST STATUS 
OP .GSS= 1 ;0UP GET DUST STATUS 
OP.ESP= 2 ;DUP EXECUTE SUPPLIED PROGRAM 
OP.ELP= $3 ;0UP EXECUTE LOCAL PROGRAM 
OP.SSD= 4 ;0UP SEND STUD DATA 
"= e § ;0UP RECEIVE STUD DATA 


s;NOTE: END PACKET OPCODES (ALSO CALLED ENDCODES) ARE FORMED BY ADDING THE END 
sPACKET FLAG TO THE Bo ye gh ae eee oe ee en oe Pe en 


;THE SERIOUS EXCEPTION "ENO PACKET CONTAINS THE SUM OF THE END PACKET FLAG 
SHOWN ABOVE (I.E.. OP .SEX+OP.END) IN ITS 
s;OPCODE F 


;COMMAND OPCODE BITS 3 THROUGH 5 INDICATE THE COMMAND CLASS. WHICN IS ENCODED 
rAS FOLLOWS: 
3 O00 IMMEDIATE COMMANDS 
001 SEQUENTIAL COMMANDS 
NON-SEQUENTIAL COMMANDS THAT DO NOT INCLUDE A BUFFER DESCRIPTOR 
100 NON-SEQUENTIAL COMMANDS THAT DO INCLUDE A BUFFER DESCRIPTOR 


© 
~ 
o 


bE 
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: ;COMMAND MODIFIERS 

z 3 = 020000 s;CLEAR SERIOUS EXCEPTION 

4 040000 MD .CMP= 040000 ; COMPAR 

s 100000 MD.EXP= 100000 ;EXPRESS REQUEST 

6 010000 MD .ERR= 010000 sFORCE ERROR 

? 004000 MD .SCH= 000 ; SUPPRESS CACHING (HIGH SPEED) 

8 002000 MD.SCL= 002000 | omae CACHING (LOW > 

9 000100 MD.SEC= 000100 S ERROR CORRECTI 

10 000400 MD .SER= 000400 1 SUPPRES S ERROR RECOVERY 

11 000200 MD.SSH= 000200 S SHADOWING 

12 000100 MD.WBN= 000100 S WRITE -BACK (NON - VOLATILE ) 

13 000400 MD.WBV= 0004 sWRITE BACK (VOLATILE) 

14 000020 MD .SEQ= 000020 en SHADOW SET ONE UNIT AT A TIME 
15 000001 MD.SPD= 000001 N -COWN 

16 06000: MD.FEU= 000001 'FLUSH ENTIRE UNIT 

i? 000002 MD.VOL= 000002 sVOLATILE ONLY 

18 000001 MD .NXU= 000001 ;NEXT UNIT 

19 000001 MD.RIP= 000001 sALLOW SELF DESTRUCTION 
20 000002 MD. IMF= 000002 ; IGNORE MEDIA FORMAT ERROR 
2i 000004 MD.SWP= 000004 SSET WRITE PROTECT 
22 000010 MO .CWB= 000010 ;CLEAR WRITE-BACK DATA LOST 
= 000001 MD .PRI= 000001 ;PRIMARY REPLACEMENT BLOCK 
4 ;END PACKET FLAGS 
27 EF .BBR= 000200 :;8AD BLOCK REPORTED 
28 000100 EF .BBU= 000100 :BAD BLOCK UNREPORTED 
29 000040 EF .LOG= 000040 sERROR LOG GENERATED 
4 000020 EF .SEX= 000020 ;SERIOUS EXCEPTION 
3 sCONTROLLER FLAGS 
24 000200 CF .ATN= 000200 ;ENABLE ATTENTION MESSAGES 
35 000100 CF .mSC= 000100 ;ENABLE MISCELLANEOUS ERROR LOG MESSAGES 
36 000040 SF .OTH= 000040 sENABLE OTHER HOST‘S ERROR LOG MESSAGES 
37 000020 CF .THS= 000020 sENABLE THIS HOST’S ERROR LOG MESSAGES 
38 000002 .SMD= 000002 3; SHADOWING 
39 000001 CF .576= 000001 3576 BYTE SECTORS 
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;UNIT FLAGS 


HAGA ASS 


;COMPARE READS 

;COMPARE WRITES 

;sHOST INITIATED BAD BLOCK REPLACEMENT 
sINACTIVE SHADOW SET UNIT 

;SUPPRESS CACHING (HIGH SPEED) 
;SUPPRESS CACHING (LOW SPEED) 
;WRITE-BACK (CNON-VOLATILE ) 

;sWRITE PROTECT (HARDWARE ) 

sWRITE PROTECT (SOFTWARE OR VOLUME) 
3576 BYTE SECTORS 


;COMMAND PACKET OFFSETS 


2% 


55283 


VVVVVVU UU 


Ue 
© ~ 
-4 
q 7 


as 


- 
BeRar 


Vm PVVVV- 
9 
fe 


PPVDP- 
—ahass 
REET: 


3 i 


2 
» 


°o 


GENERIC COMMAND PACKET OFFSETS: 
sCOMMAND REFERENCE NUMBER 
NUMBER 


;BUFFER DESCRIPTOR 
sUNIBUS ADDRESS OF BUFFER DESCRIPTOR 
SLOGICAL BLOCK NUMBER 


ABORT AND GET COMMAND STATUS COMMAND PACKET OFFSETS: 
sOUTST&NDING REFERENCE NUMBER 


ONLINE AND SET UNIT Ory fi: aoe COMMAND PACKET OFFSETS: 


UNIT F 

;HOST IDENTIFIER / RESERVED 
sERROR LOG FLAGS 

;SHADOW UNIT 


sCOPY SPEED 
REPLACE COMMAND PACKET OFFSETS: 
;REPLACEMENT SLOCK NUMBER 


SET CONTROLLER veartainctecirs x ao PACKET OFFSETS: 
CONTROLLER FLAGS 
TIMEOUT 


;sUSE FRACTION 
;QUAD-WORD TIME AND DATE 


MAINTENANCE READ AND cae all COMMAND PACKET OFFSETS: 
5 
sREGION OFFSET 


EXECUTE SUPPLIED PROGRAM COMMAND PACKET OFFSETS: 


;OMDT TERMINAL ADDRESS ag = ONLY ) 
;BUFFER DESCRIPTOR FOR OPERL 


oe a ee ee oe ee me 


St s (O44 


ZUOEDO POP 


C2a2~.0 Lb whe 
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sEND PACKET OFFSETS 


38 


a2g 


VUVUVVVVVUDY 


a 


? 


VVUVVIVVVU DU Ue - 


Bi8g gBRagE238 


- VWVVIVIOIV 
Cc 
z 
= 
~~ 
*s @eees 


wes 
235m 
Own 
ree 


GENERIC ENO PACKET OFFSETS: 


0. ;COMMAND REFERENCE NUMBER 
4, ;UNIT NUMBER 
8. s;OPCODE (ALSO CALLED ENDCODE ) 
9, ;END PACKET FLAGS 
10. sSTATUS 
l2. sBYTE COUNT 
28. sFIRST BAD BLOCK 

GET COMMAND STATUS END PACKET OFFSETS: 
le. ;OUT err REFERENCE NUMBER 
16. ;COMMAND S ATUS 

GET UNIT STATUS END PACKET OFFSETS: 
l2. sMULT yg CODE 
14. SUNIT F LAGS 
16. sHOST IDENTIFIER 
20. ‘UNIT IDENT IF IER 
28. sMEDIA TYPE IDENTIFIER 
32. ;SHADOW UNIT 
34 sSHADOW STATUS 
36 sTRACK SIZE 
38 sGROUP SIZE 
40. sCYLINDER SIZE 
44. sRCT TABLE SIZE 
4é. sRBNS / TRACK 
47. sRCT COPIES 


ONLINE AND SET UNIT — END PACKET AND AVAILABLE 
ATTENTION MESSAGE OFFSETS 


i2 SULTI-UNIT CODE 

14 ;UN1LT FLAGS 

16 s40ST IDENTIFIER 

20. sUNIT IDENTIF 

28. sMEDIA TYPE IDENTIFIER 
; SHADOW UNIT 

34 ;SHADOW STATUS 

36. ;UNIT COMMAND LIMIT 

40. ;sUNIT SIZE 

44, ; VOLUME SERIAL NUMBER 

SET CONTROLLER CHARACTERISTICS END PACKET OFFSETS: 

12. sMSCP VERSION 

14, sCONTROLLER F 

16 :;CONTROLLER T 

18. sCONTROLLER COMMAND LIMIT 

20. ;CONTROLLER ID 

GET OUST STATUS END PACKET OFFSETS 

12. ;DUST PROGRAM EXTENSION 

‘. : STATUS FLAGS 

16. ;PROGRESS INDICATOR 

20. ; TIMEOUT VALUE 


SE 


a 


9045 


O@ iO Yk inlvr 


10 
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;STATUS AND EVENT CODE DEFINITIONS 


ST.MSK= 37 
ST.SUB= 40 


ST.OIA= 37 
;GET DUST STATUS FLAGS 


OF .ACT= O10 
OF .NES= 004 


OF .LCL= 002 
DF .SA= 001 


;0UP MESSAGE TYPES 
10000 


2 
S738 


20000 
30000 
40000 
$0000 
600G0 


Du. TYP= 170000 
30M PROGRAM HEADER DEFINITIONS 


OMTRLN= 0 
DOMOVRL= 4 
OMTMO= 21 
OMMAIN= 40 
DMFRST= 1000 


et A EI LLL LL LALO! LL ALLL LL LLL LLL 


sSTATUS / EVENT CODE MASK 
3SUB-CODE MULTIPLIER 


; SUCCESS 
; INVALIO COMMAND 
OMMANO ABOR 


A 
sWRITE PROTECTED 
; COMP 
‘DATA ERROR 
sHOST i — ERROR 
; CONTROLLE 
sORIVE io 
i MESSAGE FROM AN INTERNAL DIAGNOSTIC 


sSET IF THIS DUST CURRENTLY ACTIVE 
sSET IF THIS DUST corn NOT ACCEPT THE EXECUTE 


sSUPPLIED PROGRAM 
iSET IF THIS DUST HAS A LOCAL LOAD MEDIA FOR LOADING 
a er AND OTHER UTiLITIES 

ANY PROGRAM EXECUTION UNDER THIS DUST 
‘ ISABLES THE OPERATION OF ALL OTHER SERVERS IN THE 
sSAME SYSTEM AS THE DUST 


sMESSAGE TYPE FIELD 


sOF FSET TO SIZE OF hae aay NEEDING DOWNLINE LOAD 
:OFFSET 10 SIZE OF OVERLAY 

;TIMEQUT VALUE IN SECONDS CONE BYTE) 

;OF FSET TO FIRST WORD OF MAIN PROGRAM 

; ADDRESS IN OM FILE CONTAINING FIRST BYTE OF HEADER 


4 
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QOaenwO Lk wate 


10 


en TABLE DEFINITIONS 

ONE TABLE WILL. BE SET UP By INITIALIZE SECTION FOR EACH UDA SELECTED 
:FOR bef TABLES ARE CONTIGUOUS. THE END OF THE TABLES IS 
= BY A WORD OF ZEROS. 


THE FIRST TABLE IS POINTED TO BY THE ay gla OF “TABS. 
;THE NUMBER OF TABLES IS CONTAINED IN CTRLRS 


TABLE sSTART A TABLE DEFINITION 





St G DOS 


ITEM C.UADR 2 sUNIBUS ADDRESS OF UDAIP REGISTER 
ITEM C.UNIT 2 
CT.UNT= 000077 ; LOGICAL UNIT NUMBER (FIRST) 
CT.AVL* BITIS ; SET WHEN NOT AVAILABLE FOR TESTING 
ITEM C.VEC 2 
.VEC= 000777 3; VECTOR ADDRESS 
CT.BRL* 007000 ; BR LEVEL 
ITEM C.8ST 2 ; BURST LEVEL 
ITEM C.JSR 2 s INTERRUPT SERVICE ROUTINE FOR CONTROLLER 
ITEM C.JAD 2 3; THESE TWO WORDS LOADED WITH [JSR RO, JDASRV } 
ITEM C.FLG 2 sFLAGS 
CT.RN= BITI 30M PROGRAM RUNNING 
CT.CMD- BIT2 sCOMMAND ISSUED, WAITING FOR RESPONSE 
CT.MSG* BITS sMESSAGE RESPONSE RECEIVED 
sWHENEVER THIS BIT IS SET. CT.CMD IS CLEARED 
CT.REQ= BIT4 sBUFFER HAS BEEN GIVEN TO UDA FOR REQUEST 





sSET WHENEVER READ STUD DATA COMMAND 
:GIVEN TO UDA 

CT.STA* BITS sGET a STATUS COMMAND HAS 

CT.TMis BIT6 


sONE TIME 
;RECEIVE DATA RESPONSE 





CT.mM2= BIT? ;SECOND TIMEOUT WAS EXPIFED 

ITEM C.RING 2 sRING BUFFER ADORESS 
ITEM C.ORO 2 sPOINTER TO ORIVE TABLES 
ITEM C.OR1L 2 ; IF ZERO, NO DRIVE TABLE E ISTS 
ITEM C.OR2 2 
ITEM C.ORS 2 
ITEM C.OR4 2 
ITEM C.ORS 2 

a | C.OR6 2 
ITEM C.0R7 2 
ITEM C.T 2 ; TIMEOUT COUNTER 
ITEM C. TOM 2 ; (TWO WORDS) 
ITEM C.TOT 2 s0UP PROGRAM TIMEOUT VALUE IN SECONDS 
ITEM C.PRI 4 ;0UP PROGRAM PROGRESS INDICATOR 
ITEM C.REF 2 ; COMMAND REFERENCE NUMBER 
END C.SIZE ;SIZE OF CONTROLLER TABLE IN 6YTES 


CE EN A A A LL LL LOL LLL LAL eo 


BEEN SENT 
OUT PERIOD HAS EXPIRED BETWEEN SEND OR 


J 
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00214€ 
9 002146 
10 002146 
li 
le 
13 002146 
14 
iS 002° 46 


Dw Vl whe 


000077 
100000 


;ORIVE TABLE DEFINITIONS 


[ONE DRIVE TABLE WILL BE SET UP BY THE INITIALIZE SECTION FOR EACH 
SDRIVE SELECTED FOR TESTING. EACH TABLE IS PGINTED fo Br 
SWORD IN THE CONTROLLER TABLE ON WHICH THE DRIVE EXISTS. 


TABLE sSTART A TABLE DEFINITION 
ITEM D.ORV 2 sORIVE NUMBER 
ITEM D.UNIT 2 
DT.UNT* 000077 ; ~OGICAL UNIT NUMBER OF ORIVE 
DT.AVL= BIT15 3 SET WHEN NOT AVAILABLE FOR TESTING 
ITEM D.SERN 2e. sDISK SERIAL NUMBER 


END D.SIZE sSIZE OF DRIVE TABLE IN BYTES 


yk 


fr 


4 


OBA 


KA 
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GLOBAL EQUATES SECTION 


1 ;USEFUL INSTRUCTION DEFINITIONS 
3 -MACRO AND ARG, ADR ;LOGICAL ANDO INSTRUCTION 
e 2 

S BIC OfC-ARG>, ADP 
6 (NLIST 

? .ENOM 

3 _MACRO OR ARG. ADR ;LOGICAL OR INSTRUCTION 

" & 

11 BIS ARG, ADR 
12 -NLIST 

13 -ENOM 

14 

15 _MACRO PUSH ARG ;PUSH INSTRUCTION 

16 LIRP X,<ARG> 

i? “LIST 

18 MOV x, -(SP) 
19 -NLIST 
20 “ENOM 
21 .ENOM 
23 .MACRO POP ARG ;POP INSTRUCTION 
24 LIRP X,<ARG> 
2s “LIST 
26 MOV (SP)+-,x 
27 .NLIST 
28 “ENOM 
29 _ENOM 

31 .MACRO .BR ADR ;A BRANCH TO THE NEXT LOCATION 

32 "IF P2 

33 .IF NE .-ADR 

34 .ERROR ; ILLEGAL .8R TO ADR 

35 .ENDC 

36 -ENDC 

37 _ENDM 

39 _MACRO ASSUME FIRST CONDITION SECOND 
40 TF CONDITION <FIRST>-<SECOND> 
42 nor ;BAD ASSUME OF <FIRST> CONDITION <SECOND> 


eee 


4 
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Oe. Nhe 


;PRINT CHARACTER 


IE., PNTX, PNTB, PNTX, PNTS 


.MACRO PRINT ARG1 
.IF OIF <ARG1>,RO 


LIST 
.NLIST 
. ENDC 
LIST 
-NLIST 


. ENOM 


Ri 


ARGUMENT MUST BE SOURCE STATEMENT TO MOVE gga TO PRINT (MOV ARG,RO) 
EX: “PRINT R1” WILL PRINT THE CHARACTER IN 

SPECIAL CASE: “PRINT @CR”“ WILL PRINT ENO OF LINE SEQUENCE 

THE PRINTING IS DONE AT THE MODE OF THE LAS’ PRINT LINE CALL 


MOVB ARG ,RO 


CALL CPNT 


;PROCESSING MACRO FOR NEXT SET OF FORMATTED MESSAGE MACROS 
. MACRO a en ee 


LIRP AA, <ARG8,ARG7,ARG6, ARGS, ARGS ,ARG3,ARG2,ARG1> 


.IF NB, <AA> 
-LIST 
PNT .CT=PNT.CT+2 
. ENDC 
.ENDM 
LIST 
NLIST 


MOV AA, -€ SP) 


JSR R1,.RITN 
-WORD ADR 
-WORD PNT .CT 


a ORE EN RES EE 


SEQ 9050 


M4 
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OOQw~PWNh wlr 


10 


;PRINT FORMATTED MtSSAGE MACROS 

; USE THESE MACROS TO PRINT A oon sae MESSAGE 

; FIRST ARGUMENT MUST BE ADDRESS OF FIRST CHARACTER OF MESSAGE STRING 
; TO BE PUT INTO WORD (.WORD ARG 

; UP TO 6 SOURCE —- MAY FOLLOW TO SPECIFY PARAMETERS TO BE 

; USED BY THE FORMA 


.MACRO PNTF ADR ARG1,ARG2,ARG3,ARG4 , ARGS, ARG6, ARG7 , ARGS 
PNT... LPNTF ADR ARG1,ARG2,ARG3, ARG4 , ARGS , ARG6 , ARG7 , ARGS 


. ENOM 
.MACRO PNTB vag ARG1,ARG2,ARG3 , ARG4 , ARGS , ARG6, ARG7 , ARGS 
PNT... LPNTB ADR ARG1, ARG2, ARGS, ARG4 , ARGS, ARG6 , ARG7, ARGS 


. ENOM 
.MACRO PNTX ADR ARG1,ARG2,ARG3,ARG4, ARGS, ARG6,ARG7 , ARGS 
PNT... LPNTX ADR ARG1,ARG2, ARG3, ARG4 , ARGS, ARG6 , ARG7, ARGS 


. ENDOM 
.MACRO PNTS ADR ARG1,ARG2,ARG3,ARG4 , ARGS, ARG6,ARG7, ARGS 
PNT... LPNTS ADR ARG1,ARG2,ARG3,ARG4, ARGS, ARG6,ARG7 , ARGS 


. ENDM 
.MACRO PNT 2h ARG1,ARG2,ARG3, ARGS , ARGS ,ARG6 ,.ARG7 , ARGS 
aeaiae PNT... LPNT ADR ARG1,ARG2,ARG3,ARG4, ARGS , ARG6 , ARG7 , ARGS 


SEQ 9051 
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O@ONIOUVS wilr 


10 


016104 


N4 


SEG 9052 


.SBTTL GLOBAL DATA SECTION 


i¢ 
: THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
: IN MORE THAN ONE TEST. 


FFREE:: .6LKW 1 ;FIRST FREE WORD IN MEMORY 
FSIZE .BLKW 1 SIZE OF FREE Y 
FMEM: .BLKW 1 ;COPY OF FFREE AT END OF INIT SECTION 
FMEMS: .BLKW 1 ;COPY OF FSIZE AT END OF INIT CTION 
CTABS:: .BLKW 1 ;START OF CONTROLLER TABLE STOR 
CTRLRS: .BLKW 1 ;sCOUNT OF UDA CONTROLLERS IN PTABLES 
TSTTAB: .BLKW 1 POINTER TO FIRST CONTROLLER TABLE UNDER TEST 
.GLOBL UDAFM 
DMPROG: .WORD UDAFM ;START ADDRESS OF DOM PROGRAM 
URUN : .BLKW 1 sNUMBER OF UNITS TO RUN AT ONE TIME 
URNING: .BLKW 1 sNUMBER OF UNITS STILL RUNNING 
UCNT : .BLKW i : COUNTER OF UNITS UNDER TEST 
FILOPN: . '¢) FILE OPEN 
UFREEZ: .BLKW 1 S FREEZE ON UNIT WHEN NOT ZERO 
eo .BLKW ; sSET TO ALL ONES BY NON-EXISTANT ADORESS 
FCTBUF: .BLKB Si2. ;STORAGE FOR FCT BLOCK 
FCTNUM: .BLKW 1 3FCT BLOCK NUMBER 
MODE : .BLKW 1 ;MODE WORD, SAME BIT DEFS AS SO.BIT 
sCLOCK CONTROL 
KW.CSR: .WORD O ;CSR OF CLOCK 
KW.BRL: .6LKW 1 ;8R LEVEL 
KW.VEC: .6LKW 1 ; VECTOR 
KW.HZ: .BLKW 1 ;sHERTZ (50. OR 60.) 
KW.EL: BLKW 2 ;ELAPSED TIME 
PTYPE: . PF ;PRINT TYPE 
: ,.BYTE 0,0 ;sFIRST BYTE LOADED WITH OUTPUT CHARACTER 
NULL : - 0 ;USED TO PRINT A NULL CHARACTER 
FNAME: .BLKB 10. 


= <eenrnati att. tts t t ticL LT a LL  -C. C— t ELLIE 


ob 
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1 003244 TEMP; -BLKB 22. sUSED TO GET ANSWER FROM GMANID CAL 
2 00327e 061 oS5 L112 OATEI: .ASCIZ\1-JAN 70\ sDEFAAT CATE 
5 003303 -BLKB 5 

4 003306 000000 DATEO: .WORD O ;DATE STRING IN FORMATTER FORMAT 
5 Oo331C -BLKB 10, s(FIRST WORD ZERO SAYS NO DATE MERE ET) 
6 003522 061 070 064 HIGHEST: .ASCTZ\16446 744075 /09551615\ sHIGHEST DISK SERIAL NUMBER 
’ 003347 104 105 103 MONTHS: .ASCII\DEC\ sNAME OF MONTHS 
8 003352 116 117 12¢ . ASCII \NOV\ 

9 003355 117 103 124 .ASCIINOCT\ 

10 003360 125 105 120 . ASCIINSEP\ 

11 003565 103 125 107 -ASCIT\AUG\ 

12 003366 1l2 125 114 ASCII\JULS 

13 005571 lle 125 116 . ASCII \ JUN 

14 003374 i115 101 131 ASCII \MAY\ 

15 003377 101 120 lé2 ASCII\APR\ 

16 0034C2 115 101 l2e ASCII\MAR\ 

17 003405 106 105 102 ASCII\FEB\ 

18 003410 ile 101 116 ASCII \JAN\ 

19 003415 037 NAYS BYTE 31. sNUMBER OF DAYS IN EACH MONTH 

20 003414 035 YTE 29. 

21 003415 037 BYTE 31. 

22 003416 036 BYTE : 

23 O17 037 -BYTE 31. 

24 003420 036 BYTE 50. 

25 003421 037 -BYTE 31. 

26 003422 037 BYTE 31. 

27 003425 036 BYTE 30. 

28 003424 037 BYTE 31 

29 003425 036 BYTE ° 

30 003426 037 -BYTE 31. 

31 003427 061 O71 000 YEARI9: .ASCIZ\19\ 

4 003432 062 06C 000 YEAR2O: .ASCIZ\20\ 

34 003436 000000 IPADRS: 


; 
: 
nH 


SEG 005% 


is 
co 


- 


4" Xx) PDP i ay MTR MACR ~ 1 4M ar re) OP 62 
“RERS APPR? CRO VOS.00 Tuesday ey 1031 age « 


7e x7 


-- 


OVWh nw 


00 
DRY FMTRs 


125 


105 


104 


132 


101 


125 


.SBTTL GLOBAL TEXT SECTION 


THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
MORE THAN ONE TEST, 


NAMES OF DEVICES SUPPORTED BY PROGRAM 
DEVTYP <UDA-5O CONTROLLER» 


VEOVI YP: ; 
-ASCIZ 
EVEN 
TEST DESCRIPTION 
DESCRIPT <CZUDEDO PDP-11 UDA ORV FMTR> 
. $DESC:: 
-ASCIZ 


-EVEN 


A\IOR-SC CONTROLLER / 


/CZ:IOEDC POP-11i WDA 


ESA 


OY & uate 


OP i 


i UO 
ExT sec? 


DS 
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TON 


; UNFORMATTED MESSAGES 


DATEQ@: .ASCIZ\ENTER DATE AS OD-MMM-1T1. 
FILNAQ: .ASCIZ\ FOR DISK TO BE FORMATTED. 
SERNGQ: .ASCIZ\ \ 


WNQUES: .ASCIZ\ARE YOU SURE YOU WANT TO RUN THIS FORMATTER, 


en mee ST RR re REE SRS OREN Cor 


ZUDEDO 


GLOBAL TEXT SECTION 


OSawaPYVwutor 


10 
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: FORMAT STATEMENTS USED IN PRINT CALLS 


ERRONE: .ASCIZ\s8T\ 

ERRNL: .ASCIZ\@N\ 

RNTIM: .ASCIZ\" RUNTIME "0D16":"\ 

RNTIM1: .ASCIZ\D9": “\ 

RNTIM2: .ASCIZ\O09\ 

ERRMEL: .ASCIZ\" «¢ « « ERROR PROCESSING ae STRING © # #"f 
ME SSG -ASCIZ\N"UNIT “06” UDA AT “016” ORIVE 


NOCLOCK: .ASCIZ\"NO LINE CLOCK AVAILABLE FOR TIMING EVENTS“N. 


BASNO: .ASCIZ\ "HOST PROGRAM” 

BASL2: .ASCIZ\" UDA AT “O16. 

BASLS: .ASCIZ\" ORIVE “09% 

BAS: .BYTE O sNULL TO PRINT NOTHING 

BASLN: .ASCIZ\RGERGRGRE\ sUSED TO PRINT BASIC LINE OF ERROR MESSAGE 

SERNUM: .ASCIZ\N“SERIAL NUMBER FOR UNIT "06" UDA AT “016” DRIVE “D9. 

WNSTOP: .ASCII\ "STOPPING THIS FORMAT AFTER THIS POINT WILL MAKE THE DISK”N\ 
-ASCII\ "UNUSABLE, AND WILL CAUSE THE DISK TO BE SPUN DOW WHEN-N. 
. ASCIZ\ “BROUGHT — 

WNSTRT: .ASCII\N“ WARNING: “N 
-ASCIIN" THIS FORMATTER PROGRAM SHOULD NOT BE USED AS A DIAGNOSTIC ’N\ 
.ASCIIN\” TOOL. RUN THIS PROGRAM =" AS INSTRUCTED IN THE DISK ”"N. 
-ASCIZ\” DRIVE’S SERVICE MANUAL. 


aan -— 
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“37: 
xi00: 
K101: 


-ASCIINR4“NOT ENOUGH ROOM IN MEMORY TO 


.ASCIZ\"I DON'T LIKE THE a og i GAVE TO THE HARDWARE QUESTIONS’N’. 
.ASCIZ\RSR6”"UDA HAS MORE oa VECTOR, BR LEVEL OR BURST RATE ’N. 
. ASCIZ\RSRGE “TWO es SELECT THE SAME ORIVE”N*S 


.ASCIZ\RSR6"MORE THAN EIGHT DRIVES SELECTED ON THIS UDA“N\ 

TEST THE UNITS SELECTED”N. 
.ASCIZ\ "PLEASE START PROGRAM OVER AND TEST FEWER UNITS AT A TIME”’NS 
.ASCIZ\RSR6"TWO UDA'S USE THE SAME VECTOR”’N\ 
.ASCII\R4“ONLY ONE DISK CAN BE SELECTED IN HW QUESTIONS IN RESTORE MODE. "Nn. 
.ASCIZ\ "PLEASE START PROGRAM OVER T “NN 


.ASCIZ\R4"“THIS PROGRAM CAN ONLY REF ORMA ‘ 
. ASCIINRS “UDASO ran tke IS AT A REVISION LEVEL LONGER SUPPORTED 8r’N 
.ASCII\”“THIS FORMATTER PROGRAM. THIS PROGRAM REQUIRES A UDASO-A”“N. 


.ASCII\ CONTROLLER (MODEL 6) WITH MICROCODE VERSION AT 3 OR GREATER. gh 
EN te a REPORTED MODEL CODE “D4” AND MICROCODE VERSION “D4”. 
.ASCII\RS "MEMORY ERROR TRYING TO READ UDA REGISTERS”M\ 

“ASCLIN CHECK ape crag SELECTION SWITCHES ON UDA MODULE M7485"N\ 


-ASCIZ\"OR “R7\ 
.ASCIINRS “UDA RESIDENT pe DETECTED FAILURE “NRE. 
-ASCIZ\ "REPLACE UDA MODULE M7 
-ASCIINRS “STEP BIT OIO NOT WoeT IN - ~ age REGISTER OURING INITIAL IZATION“N* 
ASCIZ\"STEP BIT EXPECTED “O1L6NR6R7\ 
ASCII\R5S”“UDA OID NOT CLEAR RING STRUCTURE IN HOS! MEMORY OURING INITIAL IZATION™N\ 
ASCII\O9” WORDS WERE TO BE STARTING AT ADDRESS “O16N\ 
ASCII\“FIRST SEVERAL WORDS NOT CLEARED (UP TO 6): "NN 
ASCIZ\S6 "ADORESS “S4 “CONTENTS “NN 
ASCIZ\S7016SSO016N\ 
.ASCII\RS“UDASA REGISTER DID NOT GO TO ZERO AFTER — 3 WRITE OF INITIAL IZATION’N\ 
-ASCIZ\“PURGE/POLE DIAGNOSTICS WERE REQUESTED“NRER7\ 
ASCIINRS“UDA DID NOT RETURN ate DATA IN UDASA REGISTER DURING INITIAL IZATION'N 
e 4 UDASA EXPECTED “O16NR6R7\ 
“UDA REPORTED FATAL ERROR IN UDASA REGISTER WHILE RUNNING DM PROGRAM“NES 


FROM OM PROGRAM WITH UNKNOWN REQUEST NUMBER ’N\ 
\ 



















(55 
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1 010705 042 115 105 XMSG1: .ASCIZ\ "MESSAGE BUFFER CONTAINS; “N\ 

2 010741 123 063 il? XMSGe: Oe ae eee a eee fain aa need tot 

3 011006 122 065 042 XPKT1: .ASCTINRS "RESPONSE PACKET FROM UDA DOES e CONTAIN EXPECTED DATA”N 
4 011102 042 105 111 \ASCII\ “ELTHER UOA RETURNED ERROR STATUS OR PACKET WAS NOT RECEIVED CORRECTLY 'N 
S Ollele 123 063 042 .ASCIZ\S3"COMMAND PACKET SENTS6”RESPONSE PACKET RECEIVED’N\. 

6 Olle?? 1235 066 117 XPKT2: Bros Negetr tt o sone beet 

? O1132€ 042 040 040 XSA: -ASCIZ\" UDASA CONTAINS “O16N\ 

: 011357 042 122 105 xXFRU:; -ASCIZ\ "REPLACE UDA MODULE M7485”"N\ 
10 
11 011413 045 101 lil SERNX: .ASCIZ\s#AINPUT ERROR. a WITH DECIMAL ~ MBER LO*- © HI- wT 
12 011503 042 111 116 DATEX: .ASCIZ\"INPUT ERROR. 
13 011522 042 116 101 FILNAM: .ASCIZ\ "NAME OF FILE CONTAINING BAD SECTOR INFORMATION”. 


24 .EVEN 


| ans -_—=— 


|-|' j 
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~ 
OOS nL Rw 


il 


011670 
011670 
011670 
011674 
011700 
611702 
011704 


011706 
011706 
011706 
011712 
011714 


177777 
17777? 
177777 
177777 
177777 


012746 
004137 
005107 
000C02 


005010 
016236 


005010 
016256 


005010 
016256 


016236 


005010 
016236 


016236 


.SBTTL. GLOBAL ERROR REPORT SECTION 


3;e¢°¢ 
; THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS 


; USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR 
; (BASIC) AND PRINTX C(CEXTENDED) CALLS ARE 


ee 
SVCINS= - 


1 
SvCTST= -1 
SVCSUB= -1 
SVCGBL* -1 
SVCTAG= -1 


BGNMSG ERROO] 


PNTB X1,@X1A 


ENOMSG 
BGNMSG ERROO2 


PNTB X2,@X2A 


ENDMSG 
BGNMSG ERROOS 


PNTB X3,@X3A 


ENDMSG 

BGNMSG ERROOS 
PNTB X46 

ENOMSG 

BGNMSG E 

ENDMSG 


BGNMSG ERROOD 


PNTB x9 


RROOS 
PNTB X8,¢X8A 


INFORMATION. PRINTS 
USED TO CALL PRINT SERVICES. 


LIST INSTRUCTIONS, SHIFTED RIGHT 
LIST TEST TAGS, SHIFTED RIGHT 
LIST SUBTEST TAGS, SHIFTED RIGHTS 


LIST GLOBAL TAGS, SHIFTED RIGHT 
LIST OTHER TAGS, SHIFTED RIGHT 


MOV OXIA, -(SP) 
JSR R1.LPNTS 


-WORD X1 
-WORD PNT.CT 


MOV @X3A, -(SP) 
JSR R1.LPNTS 
-WORD x3 

.WORD PNT.CT 


JSR R1.LPNTB 


JSR R1.LPNTB 
-WORD x9 
-WORD PNT .CT 


eS EE ES A a NE _—- 


“t a 9059 
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| 


’ 
. 


) 


SEG 0060 


= 011716 ENOMSG 

58 011720 BGNMSG ERROLO 

59 011720 PNTB x10 
011720 004137 016256 JOR R1,LONTE 
011724 005761 WORD 10 
011 72€ WORD PNT.CT 

40 011730 ENDMSG 

41 

42 011732 BGNMSG ERRO14 

43 011732 PNTB X14,R3,R2 
011732 010246 MOV R2,-(SP) 
O11L734 010346 MOV RSE, -CSP) 
011736 004137 016256 JSR R1,LPNTB 
011742 006060 -WORD X14 
011744 000004 -WORD PNT.CT 

os 011746 ENOMSG 

46 011750 BGNMSG 

47 011750 PNTB x20 
011750 004137 016256 JSR R1,LPNTB 
011754 006461 -WORD X20 
011756 000000 -WORD PNT.CT 

- 011760 ENOMSG 

Se 011762 BGNMSG ERRO21 

S1 011762 010201 MOV R2,R1 
011764 000301 SWAB R1 

53 011766 AND 2,R1 
011766 042701 177775 BIC erC<2>,A1 

34 011772 ASR Ri 

SS 011774 062701 000005 ADD @5,R1 

3%@ 9012000 PNTB X21,R2,R1 
012000 010146 MOV R1.-(SP) 
012002 010246 MOV R2. -CSP) 
012004 004137 0162356 JSR R1L.LPNTB 
012010 006651 -WORD X21 
012012 -WORD PNT.CT 

a. 012014 ENDMSG 

59 012016 BGNMSG ERRO22 

60 012016 042737 100000 020216 BIC @SA.E 

61 012024 PNTB X22 
012024 010246 MOV R2. -CSP) 
012026 015746 9020216 . -(SP) 
012032 004137 016236 JSR R1L.LPNTBS 
012036 006766 -WORD X22 
012040 000004 .WORD PNT.CT 

. 012042 ENDMSG 

64 012044 BGNMSG ERRO2S 

65 012044 PNTB X23A,R1,F FREE 
012044 0135746 002146 MOV FFREE, -¢SP) 
012050 010146 MOV Ri, -CSP) 
012052 004157 016256 JSR R1.LPNTB 
012056 007124 .WORD X25A 
012060 000004 .WORD PNT.CT 
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66 
67 
65 
69 


2838 SRE 


HELE 


012216 


005 74e 
005712 
901410 


011246 


004137 


010153 
000000 


016236 


016236 


016236 


0142356 


016236 


016256 


016236 


FRROSA; 


ENDMSG 


ENOMSG 


ENOMSG 


ENOMSG 


IS ig 
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TST -CR2) 

TST (R2) 

BEQ ERR258 

PNTB X23B,Re,(R2) 


DEC R4 
BEQ ERR2SC 


: TST (R2)> 


BNE ERR2SA 


: PNTB XFRU 


ERRO24S 
PNTB X24,R2 


ERRO2S 
PNTB x25,R1,R2 


ERROSO 
PNTB x30,R1 


ERROS1 
PNTB X31 


ERRO3S2 
PNTB X32 


JSR R1.LPNTS 
.WORD X31 
WORD PNT .CT 


JSR R1,LPNTB 
.WORD x32 
.WORD PNT.CT 
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012220 
012224 


012240 
Q12242 


00475" 


004737 


004737 


011277 


012410 


012316 


012516 


016256 


016236 


016236 


016236 


ENDOMSG 


PNTPKT: 


PNTPKL :; 


E 
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CALL MSGPKT 


RROSS 
CALL PNITPKT 


ERRO34 
CALL PNTPKT 


E 


RRO36 
PNTB X36 


ERR 


037 
PNTB X37,R1 


ERR100 
PNTB X100,(R4) 


ERR101 
PNTB X101 


ADO 
MOV 


#12. ,R 
PNTB XPKT2,2(R1),(R1),2°R25,CR2) 


KS 
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GLOBAL ERROR REPORT SECTION 


012570 


012410 
012410 


MSGPKT: 


MSGPKL : 


ADD 04,R1 

ADD 04,R2 

DEC R353 

BNE PNIPKL 
RE TURN 


PNTB XMSG1 


MOV C.RINGCRS),R4 
oe OHC .BF2,R4 


ADD #14. ,R4 
DEC RS 


BNE 
RE TURN 


Vv @5,R3 
PNTB XMSG2,(R4),20R4),4(R4),6(R4),8,0R4),10.0R4),12.0R4) 


-WORD PRT.CT 


SRRAMSE 


3333338 
= 


33 
; 


St uu 904 5 
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Sm ale 


SVCINS= 
SVCTST= 
SVCSUB 
SVCGBL + 
SVCTAG= 


MS 
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ee ee 


LIST INSTRUCTIONS, SHIFTED RIGHT 
LIST TEST TAGS, SHIFTED RIGHT 
LIST SUBTEST TAGS, SHIFTED RIGHT 
LIST GLOBAL TAGS, SHIFTED RIGHT 
LIST OTHER TAGS, SHIFTED RIGHT 


iL A LL LL LLL LLL LLL LLL ALE LEAL LL LA ~ wor 


en re eS er re me ee ee ee mee 


SOV whore 


012510 
012510 
012512 
012514 
012516 
012520 
012520 


NS 
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.SBTTL GLOBAL SUBROUTINES SECTION 
;MEMORY ALLOCATION ERROR 
; THIS ROUTINE PRINTS A SYSTEM FATAL ERROR AND EXITS THE TEST 


FMERR: ERRSF 4, ,ERROO4 
TRAP 
. WORD 
. WORD 
. WORD 
DOCLN ; ABORT 
TRAP 


CSOCLN 


SEQ 9065 


x 
yr, 
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Gi OBAL 


= OLR whi 


013746 002146 


;ALOCM 

: 

sALLOCATE A BLOCK OF FREE MEMORY, REPORT ERROR IF MEMORY ExMAUSTED. 
i 

; INPUTS: 

3 Ri - NUMBER OF WORDS TO ALLOCATE 

: FFREE - FIRST FREE WORD IN MEMORY 

ee - SIZE OF FREE MEMORY AVAILASLE IN WORDS 
: : 

3 Ri - ADDRESS OF FIRST WORD OF ALLOCATED MEMORY 
: FFREE - NEW FIRST FREE WORD IN MEMORY 


i FSIZE - SIZE OF FREE MEMORY LEFT AFTER ALLOCATION 
;SYSTEM FATAL ERROR WILt BE REPORTED IF NOT ENOUGH MEMORY AVAIL ABLE 
;AND ENTIRE PROGRAM WILi BE STOPPED. 


ALOCM: PUSH FFREE ;SAVE FFREE AT ENTRY 


SUB R1,FSIZE 
BLT FMERR 
ADD R1,R1 
ADO R1,FFREE 
POP Ri 


RE TURN 


MOV FFREE. © SP) 
sREDUCE SIZE OF FREE MEMORY 
sREPORT ERROR IF NOT ENOUGH MEMOR® 
;CHANGE WORDS TO BYTES 
;CALCULATE NEW START OF FREE MEMORY 
;GE’ START OF ALLOCATED MEMORY 

MOV (SP )+ RI 


4% DOG 


ome 


t 
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i ;4COMM 
2 ; 
s ;ALLOCATES MEMORY FOR HOST COMM AREA AND PACKET BUFFERS WIT ONE 
3 ;sDESCRIPTOR IN EACH RING. TO BE CALLED WHEN INITIALIZING 
2 3A CONTROLLER WITM SA.MSG*O AND SA,CMO=0, 
: 
? ; INPUTS; 
8 ; RS - ADDRESS OF CONTROLLER TABLE 
- ;OUTPUTS: 
10 F CONTROLLER TABLE POINTING TO HOST COMM AREA 
cs ; R4 - ADORESS OF HOST COMM AREA 
13 012546 012701 000336 HCOMM: MOV OHC.SIZ/2,R1 sGET SIZE OF AREA TU ALLOCATE 
14 012552 004737 O12522 CALL ALOCM sALLOCATE THE MEMORY 
1S 012556 010165 000016 MOV R1,C.RINGCRS ) 3;GET ADDRESS OF HOST COMM ARES 
sPL ACE IN CONTROLLER TABLE 
1? 012562 000207 RE TURN 


ee ee tre re ree te 


ee me 


—_ 


Dé 
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Gi OB AY 


-* 


OOoneoryesh a’ 


10 


;RESET 


; RESET ALL UDA-50S IN THE CONTROLLER TABLES 


ee eee 


SET: 


is: 


2s: 


36: 


- CONTAINS ALL. 


PUSH «<R3,R4> 


CLA NXMAD 
SETVEC 04, ONXMI, OPRIO?7 
BRE AK 

MOV ~h3 

MOV @IPADRS ,R4 
TST (R4) 

BEG 2s 

CLR @(R4)- 

TST 

BNE 3% 

DEC R3 

BNE is 

CLRVEC O46 

POP <R4S RS» 

RE TURN 

TST -(R4) 

MOV R4 RS 
ERROF 20, ,ERROZO 
CLR (R4) 

DOCLN 


IP ADDRESSES 


R3 = COUNTER OF ENTRIES 
R4 ->» IP ADORE 


$s 


IS THERE AN ENTRY? 
If NOT, DONE 


INIT UDA 


WAS THERE AN ERROR? 
If SO, EXIT 

MAKE SURE WE DO NOT EXTEND OVER AREA 
IF NOT DONE, BRANCH 


R4 -> UDAIP THAT FAILED 
SAVE IN RS FOR REPORT 


SEG JOE,B 

MOv PZ, (SP) 
MOV R4, -(SP) 
MOV OPRIO7., (SP) 
MOV ONXMI, -( SP) 
MOV o4,-(SP) 
MOV 63, -( SP) 
TRAP CSsSvEC 

010,9P 
TRAP C $8RK 


MOV o< ,RO 
TRAP Cscvec 
MOV (SP)+.R4 
MOV (SP)-.RS 
TRAP CSEROF 
-WORD 20 
.WORD O 


-WORD ERRO2ZO 
DESTROY ENTRY SO NOY TO FALL INTO RESET ERROR LOOP 


A A ST A 


TRAP CSOCULN 


I &, 
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i ; RUNOM 

z ;LOAD AND RUN A OM PROGRAM IN THE CONTROLLERS. RETURN WHEN Ai | 

‘ ;0M PROGRAMS HAVE TERMINATED. 

. ; 

ca] ; INPUTS: 

? . TSTTAB - POINTER TO FIRST CONTROLLER TABLE 

8 Ri - NUMBER OF CONTROLLERS TO TEST 

9 :IMPLICIT INPUTS: 

10 DMPROG - POINTER TO START OF OM PROGRAM IN MEMORY 

il :OUTPUTS 

12 Z SET IF NO CONTROLLERS SUCCESSFULLY STARTED 

3 FALL REGISTERS ARE USED AND PREVIOUS CONTENTS DESTROYED. 

15 012710 010137 9002166 RUNOM: MOV R1,URUN ;SAVE NUMBER OF UNITS TO RUN 
16 012714 005037 002170 CLR URNING ;CLEAR NUMBER OF UNITS RUNNING 
18 ;LOAD DM PROGRAM INTO EACH CONTROLLER 
50 012720 013737 002166 002172 MOV URUN,UCNT ;SET COUNTER OF UNITS 
21 012726 013705 0021 MOV TSTTAB,RS ;GET FIRST CONTROLLER TABLE 
22 012732 DOM: 
23 012732 000014 CLR C.FLGCRS) ;CLEAR ALL FLAGS 
24 0127386 116537 000002 002074 MOVB C.UNIT(RS).LSLUN ;SEE IF UNIT TO BE TESTED 
25 012744 005765 000002 TST C.UNITCRS) 
26 012750 100407 BMI LONEXT sIF NOT, DON’T LOAD THIS UNIT 
27 012752 ASSUME CT.AVL €Q BIT15 
28 012752 004737 012546 CALL HCOMM pL OCATE SPACE FOR HOST COMP AREA 
29 012756 004737 016270 CALL LOADOM sLOAD T PROGRAM 
30 012762 001402 BEQ LONEXT , IF CARON. GO TO NEXT CONTROLLER 
31 012764 005237 002170 INC URNING :IF NO . COUNT UNIT RUNNING 
32 012770 062705 000054 LONEXT: ADD @C.SIZE.RS sMOVE TO NEXT CONTROLLER TABLE 
33 012774 005337 002172 DEC UCNT ;CHECK IF MORE CONTROLLERS 
34 013000 001354 sL0AD NEXT 

35 013002 005037 002176 CLR UFREEZ ;CLEAR UNIT FREEZE FLAG 
36 013006 012737 177777 003204 MOV @-1,FCTNUM ;INVALIDATE FCT BLOCK NUMBER (BLOCK IN MEMORY) 
= ;CHECK IF ANY CONTROLLERS LOADED 
2 013014 005737 062170 TST URNING ;ANY UNITS LOADED? 
42 ;TME DOM PROGRAMS ARE NOW IN CONTROL 
ro s;RESPDOM MUST BE CALLED TO RESPOND TO THEIR REQUESTS 
45 013020 000207 RE TURN 


me 
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OPP Ye whrw 


12 013032 
14 013036 


005737 002174 
001403 


104435 
005037 002174 
000207 


; CLOSEF 

;CLOSE DATA FILE FOR DM PROGRAMS 

3 

; INPUTS: 

: FILOPN - ZERO IF FILE NOT OPEN 

,;OUTPUTS: 

; 

CLOSEF : Ist FILOPN ;SEE IF FILE CURRENTLY OPEN 
CLOSE ; IF SO, CLOSE IT 

TRAP CSsc_os 

CLR FILOPN ;AND MARK AS 30 

L$: RE TURN 


SEG 9Q70 


ZUDEDO POP 


GLOBAL SUBROUT INES SECTION 


~ 
OO @xnOVibintow 


11 


NS SST RGRAKASSSSKGEAN ES SVaNTd 


013114 
013116 


013122 


0 
015270 


013705 
013737 


000040 
000014 
C09001 
116570 
130 


000909 
015744 


002172 


000014 


002074 
000014 


000014 


000014 


000012 


;RESPOM 


Cla 


Ll UDA DRV FMTR MACRO VO5.00 Tuesday 24-May 83 10:10 Page 65 


: | 
:RESPOND TO DOM REQUESTS. RETURN WHEN ALL DM PROGRAMS 
:HAVE TERMINATED. 


RESPOM: 
RESPCT: 


MOV TSTTAB,RS 
MOV URUN,UCNT 
BREAK 


MOV C.RINGCRS),R4 

BIT @CT.RN,C.FLGCRS) 

BEQ RSPNXT 

MOVB C.UNITCRS),ULSLUN 
BIT @CT.MSG,C.FLG(RS) 
BNE RSPIN 

BIT «pcs 


BNE 1 
JMP RSPOUT 


;CHECK IF UDA STILL RUNNING 


18: 


MOV CRS),RS 
MOV 2(R3),R1 
BEG RSPTM 

ERROF 30, ,.ERROSO 


BR RSPORP 


;CHECK FOR TIMEOUT OF RESPONSE 


RSPTM: 


RSPTMO: 


1%: 


TST C.TOTCRS) 
BEG RSPNTO 


TST KW.CSR 
BEQ RSPNTO 
CMP KW.EL+2.C. TOHCRS) 
BHI RSPTMO 


RSPNTO 
KW.EL .C.TOCRS) 
BLO RSPNTO 
BIT @CT.STA.C.FLGCRS) 
BNE RSPTOE 
TST atc 
I RSPTOE 
MOV OCT.T 


BIT ecT. THA. c. FLGCRS) 
BEG 1% 


St RO 

BIS @CT.STA,RO 

BIS RO,C.FLGCRS) 

MOV @OP.GDS,RO 

CALL BLOCMD 

MOV ORG.OWN,HC.CCTCR4) 
TST @CRS) 

JMP RSPOU4 


sGET CONTROLLER TABLE ADDRESS 
sSET COUNTER OF UNITS 


sALLOW DRS TO SEE TERMINAL INPUT 


TRAP 
sGET HOST COMM AREA ADDRESS 
sCHECK IF PROGRAM RUNNING 
;IF NOT, LOOK AT NEX? 
sSTORE UNIT NUMBER UNDER TEST 
;SEE IF INTERRUPT RECEIVED 
;IF SO, LOOK AT PACKET 
;SEE IF COMMAND HAS BEEN SENT 
sIF NOT, SEND ONE 


C $BRK 


;GET ADDRESS OF UDAIP 


CSEROF 
30 


0 
-WORDB ERROSO 
sDROP CONTROLLER FROM TESTING 


3SEE IF DUP PROGRAM TO BE TIMED 


;SEE IF A CLOCK ON SYSTEM 
;DON’T TIME IF NO CLOCK 
;COMPARE TO TIMEOUT COUNTER 


;IF TOO MUCH TIME ELAPSED SINCE LAST INTERRUPT 
;SEE IF A GET OUST STATUS COMMAND OUTSTANDING 
sREPORT ERROR IF SO 

3SEE IF UDA TOOK LAST COMMAND PACKET 


;REPORT ERROR IF NOT 
;SEE IF FIRST TIMEOUT ALREADY HAPPENED 
3IF SO, 


3SET SECOND TIME OUT FLAG 

;SET THE PROPER TIMEOUT BIT 

; AND STATUS REQUESTED BIT 
;BUILD GET OUST STATUS COMMAND 


;MARK COMMAND TO UDA 
; TELL UDA COMMAND IS THERE 


HF, 
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53 015274 RSPNTO: 


SEG 


Ol? 


OBnaO Nh wlrrw 


L'> 
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013314 


013316 


NES SECTION 


062176 


000054 
002172 


000014 
002176 
000020 
000010 


090002 


100000 


016370 
002170 


; SWITCr 


RSPNXT: 


; REMOVE 


1%: 


2s: 


3%: 


RSPTOE: 


: CLR 


TO NEXT CONTROLLER 
TST UFREEZ 
BINE 


A CONTROLLER FROM TESTING 

C.FLGCRS) 

CLR UFREEZ 

RS ,.R4 

eC .DRO,R4 

os. Re 

CR4)+,RS 

3% 

D.UNITCRS) 
ASSUME DT.Avi EG BITIS 


ERROF 31. .ERROS1 


BR RSPORP 


sFROZEN TO ONE UNIT? 
;STAY THERE IF SO 


;MOVE [O NEXT TABLE 

;CHECK IF MORE CONTROLLERS 
;LOOK AT NEXT CONTROLLER 

sLOOK AT FIRST CONTROLLER AGAIN 


;CLEAR PROGRAM RUNNING 


;START OM PROGRAM AGAIN 


sREDUCE NG CONTROLLERS COUNT 
3If ANY STILi RUNNING. LOOK AT THEM 
sELSE RETURN TO TEST SECTION 


;REPORT TIMEOUT ERROR 

TRAP CSEROF 
-WORD 31 
WORD 


. 9) 
-WORDB ERROS1 
;DROP CONTROLLER FROM TESTING 


“EG 0075 
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OSs Vhwrvr 


10 


013506 
013514 


000204 
000020 


000205 
000030 


000037 


000052 


000020 


000014 


000032 


000020 


000014 


Sie 
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;CONTROLLER HAS RESPONDED, LOOK AT MESSAGE PACKET 


:CHECK FOR PROPER OPCODE IN END PACKET 


RSPIN: MOV @OP.END+OP,SSD,RO 
BIT OCT.REQ,C.FLGCRS) 
BEQ RSPMWR 
MOV @O0P .END+OP.RSD,RO 
RSPMWR: CMPB RO,HC.MPK +P, OPCOCR4 ) 


BNE RSPERR 
;LOOK AT STATUS CODE 


BIT OST.MSK HC .MPK +P. STSCR4 ) 
BNE RSPERW 


;CHECK FOR EXPECTED REFERENCE NUMBER 
CMP C.REFCRS).HC.MPK+P, CRE CRG) 
BEQ RSPPTW 

RSPERW: ERROF 33, -ERROSS 


BR RSPDRP 
;CHECK IF RESPONSE FROM SEND OR RECEIVE 


RSPPTW: BIT OCT.REG,.C.FLGCRS) 
RSPOU: BEQ RSPOUT 


ee 


;GET SEND DATA END PACKET OPCODE 
sL.00K IF SEND DATA OR RECEIVE DATA 


sCHANGE TO RECEIVE DATA END PACKET OPCODE 
;COMPARE TO OPCODE IN END PACKET 


;CHECK FOR STATUS CODE ST.SUC (ZERO) 


sCHECK IF CORRECT REF NUMBER 


TRAP C SERODF 
‘ 33 
. 6 
° ERROS3 
;0ROP UNIT FROM TESTING 
DATA COMMAND 
;CHECK IF RESPONSE FROM DM PROGRAM 


;LOOK AT REQUEST NUMBER IF SO 


RT FES SS NTT 


St 


f 
4 


x0 14 


ZUDEDO 
GLOBAL 


Dw Ut & wil re 


Ch 
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013516 


POP 
SUBROUTINES SECTI 


0004 30 
007777 
060000 


014112 


000016 
000001 


000120 


016654 


000014 
000014 


000014 


000014 


000014 


WOTS 


;MAINTENANCE READ END PACKET RECEIVED, LOOK AT REQUEST FROM DM PROGRAM 


RSPPT2: 


i$: 


RSPPTS: 


18: 


MOV HC.BF2CR4),R1 
LIC o?*C<DU, TYP>,R1i 


ERROF 32, ,ERROS2 


BR RSPORP 
MOV “ila 


CLR Ri 

CALL @RSPDSP -2(RO) 

BNE RSPORP 

MOV F =" R4 

BIT 01,R1 

8tQ ft 

INC Ri 

MOV R1,HC.CPK +P. BCNT(R4) 
BPL T 

BIC oCT.REG,C.FLGCRS) 


;SEND COMMAND BACK TO UDA 


RSPOUT: BIC @CT.MSGeCT.STAsCT. TM1+CT.TM2, ot oe saat 


RSPOV2: 
RSPOUS: 


RSPOU4: 


BIT OCT. REQ,C.FLGC(RS) 
BNE RSPOU2 

CALL CL 

BIS @CT.REQ.C.FLGCRS) 
BR RSPOUS 


BIC @OCT.REQ,c.FLGCRS) 


CALL SNOCMD 
MOV C.TOTCRS),RO 


— —_ A A RN LLL AONE LO LLL LO LL ALLL LLL LO 


;GET REQUEST NUMBER 

;CHECK TYPE 

;IF ZERO, ERROR 

;CHECK IF IN EXPECTED RANGE 


sBAD REQUEST NUMBER 


TRAP CSERDF 

«WORD 32 

-WORD © 
ERROS2 


;OROP UNIT FROM TESTING — 


;GET BYTE COUNT OF Agen Digg RECEIVED IN R% 
;(FIRST TWO CHARACTERS ARE TYPE WORD) 
OUT oR A SEND DATA Sear anes PACKE ET 
FOR ANSWER TO OM PROGRAM 
;POINT TO ig Rt PACKET 


CLEAR BUFF 
INTS TO SEND BUFFER 


¥ 
sR2 PO 
3R4 POINTS TO CHARACTERS IN RECEIVE BUFFER 
;CLEAR eet FIELD IN BUFF 


ER 
T TYPE RIGHT JUSTIFIED 
;TIMES Two 


sCOPY MESSAGE TYPE TO RO 
ZERO SEND BYTE COUNT 
;CALL REQUESTED ROUTINE 
sROUTINE RETURNS Z CLEAR *O DROP UNIT FROM TESTING 
; Z SET IF UNIT TO CONTINUE RUNNING 


;GET RING ADORESS 

sL0O0K AT gy Opa COUNT TO SEND TO DUP PROGRAM 
;IF AN ODD COUN 

; INCREASE BY 

:PUT CHARACTER COUNT IN COMMAND PACKET 

; IF eT eee yi COUNT RETURNED 

:; DON'T SEND ANY DATA TO UDA 


Ae gel MESSAGE RECEIVED FLAG 
CK WHICH COMMAND TO SEND 
; BRANCH IF RESPONSE TO REQUEST 
:BUILD RECEIVE DATA COMMAND 
i TO MESSAGE BUFFER 
AND CLEAR IT 
;SET REQUEST BIT 
;CLEAR REQUEST BIT 


sSEND COMMAND TO UDA 
;SET TIMEOUT 


ZUDEDO 
GLOBAL 
54 


67 
68 


014110 


RSPERR : 


2s: 
18: 


3%: 
4%: 


Re 
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MOV RS,R1 

ADD @C.10,R1 sPUT TIME IN CONTROLLER TABLE 
CALL SETTO 

JMP RSPNXT ;NOW WAIT FOR END PACKET 


ee @OP .END+OP .GOS,HC.MPK +P, OPCO(RS ) sSEE IF GET OUST STATUS OPCODE 


NE RSPERW 

BITB OOF .ACT,HC.MPK+P .DFLGCR4) oe DUST . LONGER RUNNING 
BEQ RSPTOE REPORT ERROR 

OCT. STA+CT.MSG,C.FLGCRS) ;CLEAR CONTROL BITS 
ocT.TM2,C.FLGCRS) IF AY SECOND TIMEOUT 


1$ 
ay .MPK+P.OPICR4),C.PRI(RS) ;COMPARE PROGRESS INDICATOR 


CMP “ve MPK +P .DPI+2(R4),C .PRI+2(R5) sCOMPARE PROGRESS INDICATOR 
BEQ 4 sREPORT ERROR If NOT CHANGED 

BIC oct. TM2,C.FLGCRS) ;CLEAR TIMEOUT 2 FLAG 

4 ect. THL.C.FLGCRS) sIF AT FIRST TIMEOUT 


MOV HC. +e DPI(R4),C.PRICRS) ;GET CCPY OF PROGRESS INDICATOR 

MOV HC.MPK+P.OPI+2(R4).C. vent et 2(RS) ;GET COPY OF PROGRESS INDICATOR 
MOV @RG.OWN*RG.FLG,HC.MCT(R4) ;GIVE MESSAGE BUFFER BACK TO UDA 

JMP RSPNXT 

JMP RSPTOE 


SEG 00716 


Me, 
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; ;RESPONSE REQUEST DISPATCH TABLE 

® 014114 014150 RSPOSP: .WORD QUEST sQUESTION 

4 014116 014202 D OQUEST sQUESTION WITH DEFAULT ANSWER 

5 014120 014554 WORD INFO ; INFORMATION MESSAGE FOR OPERATOR 
6 014122 014502 WORD TERM s;NORMAL TERMINATION 

? 014124 014512 WORD ERRTRM sFATAL ERROR TERMINATION 

§ 014126 014522 .WORD SPECL s SPECIAL 

a DSPSIZ=< . -RSPDSP»/2 sLEGAL NUMBERS ARE LOWER THAN THIS 


CPs OVS whe 


10 


11 UO 


N6é 
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OUTINES SECTION 


;NORMAL OUP RECEIVE DATA BUFFER DESCRIPTION 
;BYTE OFFSET FROM 


:START OF BUFFER  enntivctRah Phen ede sebanewddes , 
0 1 TYPE ! MESSAGE NUMBER 
2 ' DATA BYTES ‘ 
4 ‘eal DATA BYTES 
; 6 DATA BYTES ' 
4 DATA BYTES ; 
10 ‘ DATA BYTES ' 
12 ‘ DATA BYTES ‘ 
ee ee ee ee ee . 
14 DATA BYTES f 
; ee ee . 
: 16 : DATA BYTES ' 
3 @Qee ven ene neenn een ere eee eee 
; 18 ‘ DATA BYTES : 
3 @Qe--*# ee + we Be eee ee ere ree & 
: 20 ’ DATA BYTES ‘ 
; Cee eee ee meme eee ne . 
; 22 ’ DATA BYTES ; 
3 ee ee ee ee ee e 
¢ 
t 
3 
3 
+ 
: 
$ 
3 Oe eee ew em ew ee . 
; 80 ‘ DATA BYTES ’ 
3 ee . 


USED TO SELECT POUTINE 


SEQ 0078 


R4 CONTAINS THIS ADDRESS 


) ’ 
on 
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Sai PAS wl 


10 


;NORMAL DUP SEND DATA BUFFER DESCRIPTION GIVEN IN RESPONSE TO ABOVE PACKET 


;BYTE OFFSET FROM 
; START ni” aaa 


ee ©: G+ Gs Os Ge oe Ge GS Ge Gs Gs OF Gs GF Gs Ge Ge Gs GF OF Gs Ge SF Ge Se Se G+ SG G OF BF By SF 


2 
4 
6 
& 
10 


le 
14 


Fe Pires DATA BYTES 

% “DATA BYTES 

DATA BYTES 

be ca DATA BYTES t*s 

BN om sh DATA BYTES 

Be ney ree DATA BYTES it” 
Bo eee DATA BYTES ast*S 
Ran cir eae DATA BYTES ts 
Rite Nye hres OATA BYTES t*” 
gE DATA BYTES i iet*s 
Po oe snes DATA BYTES —t*S 
epee re DATA BYTES it~” 
oe es OATA BYTES (st*s 


R2 CONTAING THIS ADDRESS 


SEG GO79 


- 


bag 


< 
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OBue PM Ak Arie 


10 


0141350 
014134 
014140 
014142 
014144 
014150 
014152 
014152 
014154 
014156 
014160 
014162 
014164 


014166 
014172 
Cl#l72 
014174 
014176 
€14200 


014654 
000004 


003306 


sMESSAGE TYPE 1 
i 
;ANSWER QUESTION FOR DUP PROGRAM 


H 
: INPUT: 
RS - ADDRESS OF CONTROLLER TABLE 
Ra - oe ah Me DATA IN RECEIVE ALUFFER 
RS - CHARACTER COUNT IN RECEIVE BUFFER 
R2 - — TO SEND BUFFER (BUFFER ITS CLEARED) 
OUTPUT: 
Ri COUNT OF CHARACTERS IN SEND BUFFER 
Z SET TO CONTINUE RUNNING DUP PROGRAM 
Z CLEAR TO STOP THE DUP PROGRAM 


CALL GTORVT sGET POINTER TO ORIVE TABLE 
ADO SERN BUMP NTER TO —- NUMBER 


eo @: of @ & oF @ &F ae 
P *) 
~~ 


QUEST: 


BEQ QUE 
CMP R307 


QUE? 
ERRDF 100, .ERR100 sANY OTHER NUMBER IS “AN ERROR 


“4 


33° 


C.Z :;CLEAR Z 7O STOP DUP PROGRAM 
RE TURN 


MOV @DATEO,RO ;POINT TO DATE STRING 


INC Ri ;COUNT THE CHARACTERS 

MOVB (RO)> acnwade 3; AND PUT ate ay OUTPUT BUFFER 
BNE QUEL UNTIL A NWA CHARACTER FOUND 

RETURN ;RETURN WITH Zz SET 


QUEO: 
QUE?: 
QUEL: 


GCOBAL SUBROUTINE 


Ven? Reese ee Beek 


~~ 
© 


B5ks LESS Sores UOeSVsVANeUNNssessccuKe 


49 


C14310 
014312 


014314 


» DRV FMTR MATRO VO 


5S SECTION 


032737 


014654 
000006 


014224 


000012 
016332 


mY 


i) / 
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sMESSAGE TYPE 2 


i 
; ANSWER 


: 
; INPUT: 
te 


, 
; 
‘ 
“ 
* 
‘ 
a 
4 
4 


QUESTION FOR DUP PROGRAM WITH DEF AAT ANSWER 


5S - ADDRESS OF CONTROLLER TABLE 

R4 - POINTER TO DATA IN RECEIVE ph 

R3 - CHARACTER COUNT IN RECEIVE BUFFF 

~ ° — TO SEND BUFFER (BUFFER rs CLEARED } 


OUTPUT: 
Ri COUNT OF CHARACTERS IN SEND BUFFER 
Z SET TO CONTINUE RUNNING DUP PROGRAM 
Z CLEAR TO STOP THE DUP PROGRAM 
DQUEST: CALL GTORVT +4 DRIVE TABLE ADORESS INTO RO 
MOV -(R4), ;GET QUESTION NUMBER 
CMP RS, Z 
BHI DQUEX 
ASL R3 
JMP SDQUEUPCRS) 
DQUE UP : DQUE X 3; O CNOT USED) 
WORD DGUNIT s 1 ENTER UNIT NUMBER TO FORMAT 
WORD DQUEX 3s 2 CNOT USED) 
WORD DQUEX 3; 3 (NOT USED) 
.WORD DGRFMT ; 4 USE EXISTING BAD SECTOR INFORMAT 
WORD OGRSTR s 5S DOWN-LINE LOAD BAD SECTOR BLOCK INFORMATION 
WORD DGCONT : 6 CONTINUE IF BAD BLOCK INFO INACCESSIOCE 
DQUESZ=«<<, -OQUEP>/2>-1 
;sENTER UNIT NUMBER TO FORMAT 
DQUNIT: PUSH R5 
MOv RS. -CSP) 
CLR RG 
MOV (RO),.RS ;GET ORIVE NUMBER 
ASSUME D.ORV EG 0 
MOV €10.,RO sRADIX 10. 
DQUNLi: CALL DIVIDE 
PUSH RS 
MOV RS. -CSP) 
INC Ri 
TST R3 
BNE OGUANL 1 
MOV R1,.RO 
DQUNL2: POP 
MOV (SP)-.R5 
eo, 
MOVE RS,CR2)>: 
RO 
BNE DQUNL2 
POP RS 
MOV (SP)-,.R5 
DQUEX: SEZ 
RE TURN 


000003 603206 ODOQRFMT: BIT &SO.FMT,MODE 


ZUDEDO PDP i 
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014322 
014324 
014330 
014332 


0143534 
014342 
014344 
0143544 
014350 
014352 


001410 
112712 
005201 
000 766 


032737 
001370 


L1l271le 
005201 
000 756 


000131 


000010 005206 


000116 


DQYES: 


DQRSTR: 
DQCONT: 
DQNO: 


BEQ DQNO 
MOVB @'Y,(R2) 
INC R1 

BR OQUE x 


BIT #S0.STR,MODE 
BNE OQYES 


MOVB @'N,(R2) 
INC Ri 
BR DQUE x 


[ 
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~~ ee 


eee 


A EE OEE CF RL OE SRNR CREO SSeS ee FR AR ER ETRE 


eee ae eee es —~- 
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OS & ator 


4i 


177776 
000160 


014654 


014700 
014620 


016264 


;ME SSAGE 


| ( 
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TYPE 3 


: 
;PRINT INFORMATION FROM DUP PROGRAM 


: 
; INPUT: 


; 
3 
: 
3 
é 
;OUTPUT: 
3 

3 


INFO: 


INF OH: 
INF OP: 
INF OX: 


INF OE : 


INF OB: 


RS - POINTER TO CONTROLLER TABLE 

R4 - POINTER TO DATA IN RECEIVE BUFFER 

R3 - CHARACTER COUNT IN RECEIVE BUFFER 

~ : —" TO SENO BUFFER (BUFFER IS CLEARED) 


Ri - BIT 15 SET TO PREVENT SENDING DATA TO DUP PROGRAM 
Z SET 'O CONTINUE RUNNING DUP PROGRAM 


MOV -2(R4),RO ;GET MESSAGE NUMBER 
BEQ INFOS i IF core PRINT BEGUN MESSAGE 
CMP RO, #100 VIF OCTAL 100 
BEQ INFOE ; PRINT ERROR MES 
CMP RO, @200 sSEE IF 200 OR GREATER 
INF s IF SO, PRINT WITHOUT FREEZING 
TST UFREEZ 
INF 
UF 
CALL GTORVT 
RO,R2 
CALL HEADER 
CALL MESG sPRINT THE MESSAGE 
o4 eBIT1S5.R1 sRETURN A NEGATIVE BYTE COUNT 
RE TURN sRETURN WITH Z SET 
ERRDF 101,,ERR101 sANSWER WAS REJECTED BY OUP PROGRAM 
TRAP CSEROF 
-WORD i101 
-WORDB 0 
-WORD ERR101 
C.Zz ;RETURN WITH Z CLEAR TO STOP DUP PROGRAM 
RE TURN 
CALL GTORVT ;PRINT FORMAT BEGUN MESSAGE 
MOV RO,R2 
CALL HEADER 
CALL MESG 
PNT WNSTOP :PRINT WARNING NOT TO STOP NOW 
JSR R1LPNT 
.WORD WNSTOP 
.WORD PNT .CT 
BR INFOX 


SEG 008% 


14 014502 004737 014354 


15 014506 
16 014510 


iil UO 


000244 
000207 


’ 
l5 / 


A ORV FMTR MACRO VO5.00 luesday 24 “ay 83 10:10 P 7S 
NES SECTION , : seth 


;MESSAGE TYPE 4 
: 
; TERMINATION MES» AGE 


: 
; INPUT: 
3 RS - POINTER TO CONTROLLER TABLE 
: R4 - POINTER TO DATA IN RECEIVE BUFFER 
: R3 - CHARACTER COUNT IN RECEIVE BUFFER 
é R2 - POINTER 10 SEND BUFFER (BUFFER IS CLEARED) 
: R1 - ZERO 
;OUTPUT: 
3 Z CLEAR TO TERMINATE DUP PROGRAM 
TERM: “Sy INFO ;sPRINT THE MESSAGE 
L . 
RETURN sRETURN Z CLEAR TO TERMINATE DUP PROGRAM 


aan eel a a sna 


| 


' f 
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GLOBAL SUBROUTINES SECTION 


Pen) Deaton oe bee 


il 
l2 
13 
14 014512 004737 014354 


15 014516 000244 
16 014520 00020" 


;MESSAGE TYPE 5 
i 
;ERROR TERMINATION MESSAGE 


: 
; INPUT: 


+ 
. 
; 
. 
. 
é 
: 


ERRTRM: 


OUTPUT 


RS - POINTER TO CONTROLLER TABLE 

R4 - POINTER TO DATA IN RECEIVE BUFFER 

R3 - CHARACTER COUNT IN RECEIVE BUFFER 

R2 - POINTER TO SEND BUFFER (BUFFER IS CLEARED) 

R1 - ZERO 

"2 CLEAR TO TERMINATE DUP PROGRAM 

CALL INFO 

CLZ | 

RE TURN ;RETURN Z CLEAR TO TERMINATE OUP PROGRAM 


EE I ES ES SRT ER SET AS” 


ZUDEDO PDP i 


GLOBAL SUBROUTINES SECTION 


C22 ~.0 Sk ature 


10 


014572 
014576 


014600 
014602 
014610 
014614 
014616 


023714 
001425 
002407 


104435 
012700 
104434 
012737 


012705 
012701 


003204 


003232 


177777 
001000 
002204 


003204 
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;MESSAGE TYPE 6 


: 
;SPECIAL TYPE 


3 
; INPUT: 


i 
; 
‘ 
i 
‘OUTPUT: 
; 

SPECL: 


SPECLC: 


SPECLR: 
SPECLL : 


SPECLE: 
000002 SPECLX: 


- READ FCT BLOCK FROM FILE 


RS - POINTER TO CONTROLLER TABLE 

R4 - POINTER TO DATA IN RECEIVE yA 

R3 - CHARACTER COUNT IN RECEIVE BUFFE 

R2 - POINTER TO SEND BUFFER (BUFFER ts CLEARED ) 


Ri - ZERO 
Z SET TO SEND DATA TO PROGRAM 
CMP FCTNUM,(R4) ;SEE IF DESIRED BLOCK IS IN MEMORY 
NOD TO PROGRAM 


BEG SPECLX ; IF SO, SE OuP 
; IF LOWER NUMBERED BLOCK IN MEMORY, 


BLT SPECLR 
: GO READ NEXT BLOCK 
CLOSE ;OTHERWISE, START READING FROM BEGINNING AGAIN 
TRAP CsCLOS 
OPEN Of NAME 
MOV OF NAME .RO 
TRAP CSOPEN 
MOV @-1,—CTNUM 
MOV 0512. ,R3 ;GET BYTE COUNT IN A BLOCK 
MOV @OFCTBUF.R1 ;POINT TO — AREA 
GETBYTE (R1)« ;READ THE FILE 
Tap CSGETS 
“Ovs RO.CR1I)- 
BNCOMPLETE SPECLE sPRINT ERROR IF NO MORE BYTES IN FILE 
Bcc SPECLE 


DEC RS ,COUNT THE BYTES 

BNE SPECLL 

INC FCTNUM sKEEP COUNT OF BLOCK IN MEMORY 

BR SPECL 

INC (R2) L OUP PROGRAM DATA NOT AVAILABLE 

MOV orcieur .2(R25 ;PUT ADDRESS OF DATA IN OUTPUT BUFFER 

ee ;SEND 3 WORDS TO OUP PROGRAM 

RE TURN sRETURN WITH Z SET TO SEND DATA TO DUP PROGRAM 


OED Oe OER | ee ST oe ee ee oe er ete ene + 


5tG 


YORE 


)/ 


| 


ZUDEDO PDP i1 UDA DRV FMTR MACRO VO5.00 Tuesday 24-May-85 10:10 Page 74 
GLOBAL SUBROUTINES SECTION 


oP~7 Yh wte 


10 


000012 


016054 


000015 
016054 


i A MESSAGE IN THE RECEIVE BUFFER FROM THE DUP PROGRAM 


. VINPUT: 


;OUTPUT: 


4 - POINTER TO DATA IN RECEIVE BUFFER 
R3 - CHARACTER COUNT IN RECEIVE BUFFER 


a . — TO CHARACTER AFTER MESSAGE IN RECEIVE BUFFER 
Ri - BIT 15 SET TO PREVENT SENCING DATA TC DUP PROGRAM 
RO - CONTENTS DESTROYED 

Z SET TO CONTINUE RUNNING DUP PROGRAM 


MOVB (R4)+,RO ;PRINT CHARACTERS FROM OUP PROGRAM 
BEQ 2 : DISCARDING LF AND NULL CHARACTERS 
CMP RO, #12 

BEQ 2s 

PRINT RO 


DEC RS 
BGT 18 
PRINT OCR 


CALL CONT 
sCOUNT THE CHARACTERS 


MOVE OCR,RO 
CALL CPNT 
RE TURN 


ee ee eee 


3EG 9087 


|< 
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On OVYhiate 


000020 


000002 002074 


:;GTORVT 


i : 
:GET DRIVE TABLE ADDRESS FROM CONTROLLER TABLE 


H 
; INPUTS; 
[ 
;OUTPUTS 
3 


: 
GTORVT: 


GTORVL : 


RS - CONTROLLER TABLE ADDRESS 


RO - ADORESS OF FIRST ORIVE TABLE AVAILABLE FOR TESTING 
(WITH OT.AVi. BIT CLEAR) 


PUSH RS 


ADD eC .DRO,RS 
MOV CRS)+,RO 
MOV whines oa 


SSUME 


BMI GTORVL 


POP RS 
RE TURN 


ol 
0 


$LUN 
T,AVL EQ BITIS 


MOV (SP >-,R5S 


SEG 0084 


— A CR 
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} panes 

: ‘PRINT A HEADER IN FRONT OF EACH MESSAGE FROM DUP PROGRAM, 

4 :A UDA ADDRESS IS PRINTED IF MORE THAN ONE UDA IS IN HAROWARE P- TABLE 

S iA RUNTIME IS PRINTED IF A CLOCK IS BEING USED TO TIME PROGRAM EXECUTION. 
6 

? INPUT: 

4 ; RS - POINTER TO CONTROLLER TABLE 

9 ;OUTPUT: 
10 ; RO - POINTER TO DRIVE TABLE 
11 : PRINTED MESSAGE 


13 014700 022737 000001 002012 HEADER: 
14 014706 001411 


014714 016246 0900002 
014720 004137 01622e 


16 014750 

i? 014730 

18 014730 000407 

19 014732 005737 003210 1$: 
20 014736 001406 

21 014740 


22 014750 004737 020242 2s: 
23 014754 38: 


CMP 01,. SUNIT 
BEQ 1% 
PNTF MESSG,D.UNIT(R2),(R5),(R2) 


;IF MORE THAN ONE UNIT BEING TESTED 
;PRINT UDA ADDRESS 


MOV (RZ), -(SP) 
MOV (RS), -(SP) 
MOV D.UNIT(R2). (SP) 
JSR R1L,LONTF 
-WORD MESSG 
-WORD PNT .CT 
ASSUME C.UADR EQ 0 
ASSUME 0.ORV EG O 
BR 2% 
TST KwW.CSR NO CLOCK BEING USED 
BEQ 3$ ‘BYPASS RUNTIME MESSAGE 
PRINT @CR 
MOVE 9CR.RO 
CALL CPNT 
CALL RNTIME sPRINT RUNTIME IF A CLOCK IN USE 
PRINT @CR 
MOVE @CR,RO 
CALL CPNT 
RE TURN 


StG 9089 


M/ 
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Oe 7YV lh whew 


015266 


016226 


015266 
015300 


;OSTRNG 
i 
sFORMAT 


OF THE ASCIZ STRING IS AS FOLLOWS: 


i 
—- ENCLOSED IN QUOTES ARE 10 BE PRINTED AS THEY ARE. 


ON - 


2 $2 3 2 


3A NULL 


oe CODE IS A SINGLE LETTER FOLLOWED BY AN OPTIONAL DECIMAL 
‘PRINT OCTAL NUMBER. N REPRESENTS SIZE OF BINARY NUMBER PASSED 


IN PARAMETER IN BITS. MAY BE IN RANGE 1 TO 32. IF N>16, TWO PARAMETER 

WORDS ARE USED, OTHERWISE ONLY ONE WORD. LEADING ZEROS ARE PRINTED. 

N IS ALWAYS SPECIFIED. 

DECIMAL NUMBER FROM N BIT PARAMETER. LEADING ZEROS 

ARE NOT PRINTED. A 16 BIT NUMBER EQUAL “0 
T R FROM PARAMETER OF 

ARE USED, OTHERWISE ONLY ONE * 2 eel LEADING ZEROS ARE PRINTED. 


START NEW LINE (CR-LF SEQUENCE). N ASSUMED TO BE 1 

PRINT N ASCII CHARACTERS FROM PARAMETERS, N ASSUMED TO BE 1. 

N/2 PARAMETER WORDS USED. 

EXECUTE ROUTINE ON. N MUST BE GIVEN AND DEFINED IN HOST PROGRAM. 


CHARACTER MEANS END OF MESSAGE. A NULL AS FIRST CHARACTER IN STRING 


;MUST BE IGNORED. 


; 
; OUTPUT 


INPUTS: 


A MESSAGE ACCORDING TO A FORMAT STRING 


- ADDRESS OF START Fon yp STRING 
Ra - ADDRESS OF PARAMETER 





{OUTPUTS : 
3 2 AND R4 UPDATED TO END OF STRING AND PARAMETERS 
OSTRNG: MOVB (R2)+,R1i sGET CONTROL CHARACTER 
BEQ OSTRE seaee IF NMUAAL CHARACTER 
MOV #ERRC RO ;GET POINTER TO CHARACTER TABLE 
NCONS: CMPB R1,CRO) sCOMPARE CHARACTER WITH TABLE ENTRY 
BEG NCONF BRANCH IF MATCH FOUND 
TSTB (RO) 3; INCREMENT POINTER 
BNE NCONS sCONTINUVE SEARCH IF NOT END OF TABLE 
PNTF ERRME1 ;REPORT BAD CONTROL CHARACTER 
JSR R1.LPNTF 
. WORD ERRME 1 
.WORD PNT .CT 
BR OSTRE 
NCONF: SUB @ERRC,RO ;GET INCREMENT INTO TABLE 
ASL RO : —E TO WORD COUNT 
CALL SERRDCRO) sO0ISPATCH TO PRINT ROUTINE 
BR OSTRNG ;GET NEXT 


OSTRE: 


RE TURN 


LD LE TC EO ES AE OLA LLLIL LE LLL ALLELE LOL LOLOL LLL LLL DLE 


I ET LEA CE ALLE LLL EL LL A SS 


SF 9 


9090 


we oe 6 ee ee 


N/ 
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: ;CONTROL CHARACTER WAS A QUOTE, PRINT ALL CHARACTERS TO THE NEXT QUOTE. 
3 015036 112200 CON.QU: MOVB oo? RO sGET CHARACTER 
4 015040 7 000042 CMPB RO,@' | CHECK IF ENDING QUOTE 
5 015044 001405 BEQ CON’ Qx ;IF SO, GO GET NEXT CONTROL CHARACTER 
6 015046 PRINT RO SPRINT THE CHARACTER 
01504€ 004737 016054 CALL CPNT 
7 015052 000771 BR CON. QU s;CONTINVE PRINTING 
: 015054 000207 CON.QX: RETURN 
. ;CONTROL CHARACTER WAS AN A, PRINT ASCII CHARACTERS FROM PARAMETERS. 
1 
12 015056 004737 015554 CON.A: CALL GETCNT sGET COUNT OF Sr aa 
13 015062 CON.A1: PRINT (R4)-+ s;PRINT THE CHARACTER 
015062 112400 MOVB (R4)+ RO 
15064 004737 016054 CALL CPNT 
14 01597.) 005 DEC Ri sCOUNT THE CHARACTER 
15 015072 0013575 BNE CON.A1 sPRINT Fe COUNT REACHES ZERO 
16 015074 032704 000001 BIT 01,R4 sCHECK IF R4 NOW ODD 
17 015100 001401 BEQ CON.A2 
18 015102 005204 INC R4 :IF SO, INCREMENT TO NEXT aa ten ADORE SS 
z 015104 000207 CON.A2: RETURN sNOW GET NEXT CONTROL CHARACTE 
= ;CONTROL CHARACTER WAS AD. PRINT DECIMAL NUMBER. 
23 015106 012701 900012 CON.D: MOV 010. ,R1i sLOAD RADIX 
24 015112 004737 015612 CALL PNTNUM sPRINT NUMBER 
= 015116 sNOW GET NEXT CONTROL CHARACTER 
z sCONTROL CHARACTER WAS AN H. PRINT HEX NUMBER. 
29 015120 012701 000020 CON.H: MOV 416. ,R1 s;LOAD RADIX 
30 015124 004737 015612 CALL PNTNUM :PRINT NUMBER 
31 015130 000207 ;NOW GET NEXT CONTROL CHARACTER 


SEQ 90091 


ZUOEDO POP 


1 UDA ORV FMTR MACRO VOS 


GLOBAL SUBROUT INES SECTION 


OLS Wi OCYV RR ale 


015132 
015136 
015142 


015144 


012/01 
004737 
000207 


000010 
015612 


01553“ 


900015 
016054 


015534 
000010 


015244 


016226 


015534 


000040 
016054 


Q 
oe 
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;CONTROL CHARACTER WAS AN ©, PRINT OCTAL NUMBER, 


CON.O: MOV 06, ,R1 sLOAD RADIX 
CALL SNTNUM sPRINT NUMBER 
RE TURN sNOW GET NEXT CONTROL CHARACTER 
;CONTROL CHARACTER WAS AN N, PRINT NEW LINE SEQUENCE. 
CON.N: CALL GETCNT +GET COUNT 
CON.N1: PRINT OCR sPRINT NEW LINE SEQUENCE 


MOVB oCR,RO 
CALL. CPNT 
DEC R1 ;COUNT THE SEQUENCES 
BNE CON.N1 
RE TURN ;NOW GET NEXT CONTROL CHARACTER 
;CONTROL CHARACTER WAS AN R. CALL A PRE-PROGRAMMED ROUTINE. 
CON.R: CALL GETCNT ;GET ROUTINE NUMBER 
of Rs CERANSI sCMECK IF DEFINED ROUTINE NUMBER 
ADO R1.R1 ;OOUBLE COUNT TO GET WORD INDEX 
sCALL ROUTINE 


CALL BERRRTB-2(R1) 
TURN 


RE sNOW GET NEXT CONTROL CHARACTER 
CON.R1: PNTF ERRMEL be 


sREPORT BAD MESSAGE STRING 


JSR RL, LPNTF 
.WORD ERRME1 
-WORD PNT.CT 
POP Ri sFIxX THE STACK 
MOV (SP)-,R1 
RE TURN 
sCONTROL CHARACTER WAS AN S. PRINT SPACES. 
CON.S: CALL GETCNT 3GET COUNT 
CON.S1: PRINT <@ » sPRINT A SPACE 
MOVB @ .RO 
CALL CPNT 
DEC Ri ;COUNT THE SPACES 
BNE CON.S1 
RE TURN sNOW GET NEXT CONTROL CHARACTER 


Cé 
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i sERROR ROUTINE DISPATCH TABLE 
® 015246 015520 ERRRTB: .WORD CALRE | sWOT USED 
4 015250 015320 .WORD CALRE ed USED 
5 0158252 015320 .WORD CALRE sNOT USED 
6 015254 015332 .WORD CALR4 sPRINT BASIC LINE WITHOUT UDA = 
’ O1525€ 015406 .WORD CAILRS SPRINT BASIC LINE WITH UDA ADDRESS 
8 015260 015464 .WORD CALRE s;CALL ALTERNATE a STRING ate POP -11 MEMO: 
9 015262 015500 .WORD CALR?7 sPRINT “REPLACE A MODULE ™7485” 
10 015264 0155i6é .WORD CALRE s;PRINT ° UDASA CONT Atie OOOO” 
.; 000010 ERRRSZ=«<, -ERRRTB>/2 
13 ;BUILD TWO TABLES 
14 : FIRST CONTAINING CONTROL CHARACTERS 
c ; SECOND CONTAINING ROUTINE ADDRESSES 
i? .MACRO BYILD 
18 ENTRY “,.CON.QU 
19 ENTRY A,CON.A 
20 ENTRY D,CON.O 
2i ENTRY 4,CON.H 
22 ENTRY 0,CON.O 
23 ENTRY N,CON.N 
24 ENTRY R,CON.R 
25 ENTRY S,CON.S 


26 . ENDM 


ves Denese. ee teen) 


015314 
015316 


015036 
015056 
015106 
015120 
0*-+*32 
1° 144 
4.43166 
015224 


| )e4 
nie MACRO VOS.00 Tuesday 24 May 8! 10:10 Page 4% 
;MERE IS FIRST TABLE 
MACRO ENTR: ARG1,ARG2 
.LIST 
.BYTE ‘' ARG) 
.ENDM 


ERRC: BUILD 


sMERE IS SECOND TABLE 
.MACRO ENTRY ARG1,ARG2 
.LIST 


. WORD 
-NLIST 

. ENDM 

ERRD: BUILD 
.WORD CON.QU 
-WORD CON.A 
.WORD CON.0 
.WORD CON.H 
.WORD CON,.O 
-WORD CON.N 
-WORD CON.R 
-WORD CON.S 


sFOLLOW WITH A MAL BYTE 


E& 
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5S 015350 


004137 016226 
003740 


000000 
00020” 


;PRE -PROGRAMMED ROUTINES 1, 2 AND ! 
;NOT USED - PRINTS ERROR MESSAGE 


CALRE: NTF ERRMES ;PRINT ERROR MESSAGE 
JGR RL, LONTE 
oes Sa 

RE TURN ; 


ee ee Se tO ORE RE CS ON AE ERE Oe ee 


[- ‘ 
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1 ;PRE -PROGRAMMED ROUTINE 4 

2 ;PRINT BASIC LINE FOR HOST PROGRAM ERROR WITHOUT UDA ADDHESS 

3 ;THEN SWITCH TO EXTENDED FORMAT. 

“ 

5 015332 CALR4: PNTB BASLN, OBASNO, O6AS, ORAS, OBAS 
0153352 012746 004225 MOV OBAS,-(SP) 
015336 012746 004225 : MOV @BAS, -< SP) 
015342 012746 004225 MOV @BAS, -(SP) 
015346 012746 904150 o (SP) 
015352 004137 016256 JSP RL, LPNTB 
015356 004224 -WORD BASLN 
015360 000010 -WORD PNT.CT 

6 015362 004737 020242 CALL RNTIME 

7 015366 PRINT OCR 
015366 112700 000015 MOVE ©CR HO 
015372 004737 016054 CALL CPNT 

8 015376 012737 016154 0035224 MOV OPX,PTYPE 

9 015404 000207 RE TURN 


Wim wile 


“a mh 


oa 


UO 


900015 
016054 
016154 003224 


;PRE -PROGRAMMED ROUTINE 5 


( ) ? < 


A DRV FMTR MACRO V0O5.00 Tuesday 24 - May 83 10:10 P AK 
INES SECTION ‘ . _ 


;PRINT BASIC LINE FOR HOST PROGRAM ERROR WITH UDA ADDRESS 


; THEN SWITCH TO EXTENDED FORMAT 


CALRS: 


PNTB BASLN, OBASNO, OBASL 2,(R5), OBAS, OBAS 


CALL RNTIME 
PRINT @CR 


MOV OPX,PTYPE 
RE TURN 


a pe rte am 


LA A LL LALLA ALLL LOL GLEE EL ELLE LIGA 


MOV 
“MOV 98 


AE AEE Fe se 


£9 G09? 


“wow & wl 


UO 
NE 


014766 


A ORV FMTR MACRO VO5.00 Tuesday 
S SECTION 


;PRE -PROGR 
;CALL ALTE 
CALRE; 


ries 
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PUSH Re 


AMME D 
RNATE PRINT ROUTINE IN PDP -11 MEMORY 


ROUTINE 6 


MOV (R4)+,R2 
CALL OSTRNG 


POP R2 
RE TURN 


+SAVE CURRENT STRING POINTER 
MOV R2,-°SF) 
;GET NEW STRING POINTER 
sOUTPUT USING THIS STRING 
sGET OLO POINTER BACK 
Vv (SP )+,Re 


MO 
sNOW CONTINUE THE OLD STRING 


| é 
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NOU & whore 


015514 


010246 
012702 
004737 


012602 
000207 


011357 
014766 


;PRE -PROGRAMMED ROUTINE 7 
;PRINT “REPLACE UDA MODULE 47465” 


CALR?; 


PUSH Re 
MOV OXxXFRU,R2 
CALL OSTRNG 
POP R2 


RE TURN 


MOV R2, -(SF) 


MOV (SP )+-,Re 


O99 


JO 
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soy bite 


015516 


015532 


010246 
012702 
004737 


012602 
000207 


011526 
014766 


;PRE -PROGRAMMED ROUTINE 8 


;PRINT 
CALRB: 


" UDASA CONTAINS AAKXKK" 


PUSH R2 


MOV @XSA,R2 
CALL. OSTRNG 
POP R2 


RE TURN 


MOV R2, 


MOV (5P)-,Re 


(SP) 


SE 


f; 
- 


9100 


i . 
lan 
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GLOBAL 


OQO~ PLY hwvre 


10 


000071 


-sagehineng 


:GET COUNT IN NEXT CHARACTERS OF STRING POINTED 7 BY R2. 
; NUMBER —s BE IN DECIMAL. IF NO NUMBER, RETURN A 


——— .. 
INPUTS: 
: 2 - POINTER TO ASCII STRING 
;OUTPUTS: 
: Rl - NUMBER READ OR A ONE 
3 R2 - POINTING TO CHARACTER AFTER NUMBER 
GETCNT: PUSH RO 
MOV RO, -( SP) 
CLR R1 ;START WITH ZERO COUNT | 
GE TCNX: sCHECK IF CHARACTER A DIGIT 


sBRANCH IF LOWER THAN ZERO 


GETCON: 


GETCXX; 


CMPB (R2),0'9 

BHI GET ;BRANCH IF HIGHER THAN NINE 

ASL R1 sMULTIPLY NUMBER GY 10 

MOV R1,RO ; SAVE 2N 

ASL Rl ; COMPUTE = 

ASL Ri COMPUTE 6N 

ADD RO,R1 8N + 2N = 1ON 

MOVB (R2)+,RO :GET DIGIT FROM STING 

SUB @’'0,RO ;GET RID OF ASCII 

ADO RO,R1L sADD TO 

BR GETCNX ‘GO TO NEXT CHARACTER 

TST Ri S CHECK IF NUMBER IS ZERO 
;IF ZERO, CHANGE 


; TO DEFAULT OF ONE 
MOV (SP)-,.RO 


LS 
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;PNTNUM 
; 
;PRINT A NUMBER 
. 
; INPUTS: 
: Ri - RADIX OF NUMBER 
: R2 - ASCII STRING TO COUNT OF BITS IN NUMBER 
 aestuaieier - POINTER TO NUMBER (LOW WORD) 
; NUMBER IS PRINTED. LEADING ZEROS ARE PRINTED EXCEFT FOR 
: DECIMAL NUMBERS. 
; RO - CONTENTS DESTROYED 
PNTNUM: MOV R1,RO a RADIX 
015534 CALL GETCNT ;GET COUNT OF BITS 
PNTNUS: PUSH <R2,R35,R5> 
MOV RS, -CSP) 
MOV RS, -(SP) 
MOV (R4)+,RS ;GET ONE PARAMETER WORD 
CLR RS sCLEAR STORAGE FOR OTHER 
000020 ay oS ha sMORE THAN 16 BITS IN NUMBER? 
MOV (R4)+, RS ;YES, GET SECOND PARAMETER WORD 
1$: PUSH R4 
MOV R44. -CSP) 
MOV RS5S,R4 sPUT HIGH IN R4 
000020 MOV #16. ,.R2 sCOMPUTE BITS NOT WANTED 
SUB R1,R2 sBY SUBTRACTING BITS TO USE 
BGE 2% sFROM 16. 
000020 ADD #16. ,R2 ;IF NEGATIVE. ADO 16 FOR FIRST WORD 
2s: BEQ 6% 3IF ZERO, NO BITS NEED BE CLEARED 
100000 MOV @BIT15.R5 I START MASK WITH SIGN BIT SET 
3$: ro o ;COUNT BITS IN MASK 
gig ;SHIFT MORE BITS TO RIGHT 
000020 4%: iy tah ;MORE THAN 16 BITS IN NUMBER? 
Peay sYES. CLEAR IN HIGH WORD 
S$: BIC RS,RS :NO, CLEAR IN LOW WORD 
016332 6%: CALL DIVIDE DIVIDE BY RADIX IN RO 
PUSH RS ;PUSH REMAINDER ON STACK 
MOV RS. -CSP) 
INC R2 s;COUNT DIGITS ON STACK 
TST RS :CHECK IF QUOTIENT IS ZERO 
BNE 6% 
TST R4 


——— eames 


Me 
ZUDEDO PDP-11 UDA ORV FMTR MACRO VOS.00 Tuesday 24-May 83 10:10 Page 94 SEG 010% 
GLOBAL SUBROUTINES SECTION 


1 015734 O20027 000012 CMP RO,@10. sIF RADIX IS DECIMAL 
2 015740 001423 BEQ 10% 7 ; JUST GO PRINT DIGITS ON STACK 
3 015742 010103 MOV R1,R3 ;OTHERWISE COMPUTE NUMBER OF LEADING ZERO* 
4 015744 162700 000014 SUB @12.,R0 s;DIVIDENO IS BITS IN NUMBER 
5 015750 003002 BGT 7$ sOIVISOR IS BITS PER DIGIT PRINTED 
6 015752 012700 000005 MOV @3,R0 ; (3 OR 4) 
? O157S€ 004737 016332 7$: CALL DIVIDE 
8 015762 005705 TST RS ;IF REMAINDER NOT ZERO 
9 015764 001401 BEQ 8$ ; INCREMENT QUOTIENT 
10 015766 005205 INC R353 
11 015770 160203 8$: SUB R2,R3 s;SUBTRACT DIGITS ON STACK 
12 015772 001406 BEQ 10% sNO LEADING ZEROS IF ZERO 
13 015774 9$: PRINT 0'0 ;sPRINT A ZERO 
015774 112700 000060 MOVE @'0,RO 
016000 004737 016054 CALL CPNT 
14 016004 0053505 DEC R3 
- 016006 001372 BNE 95 sREPEAT UNTIL COUNT REACHES ZERO 
17 016010 10%: POP R5 ;GET CHACACTER FROM STACK 
016010 012605 MOV (SP)-,RS 
18 016012 062705 000060 ADD @'0,R5 sCNVERT TO ASCII DIGIT 
19 016016 020527 000071 CMP RS5S,0'9 ;I1f GREATER THAN A 9 
20 016022 003402 BLE 118 ; CONVERT TO A OR HIGHER 
21 016024 062705 000007 ADD @<‘A-‘9-1>,R5 ; FOR HEX DIGIT 
22 016030 118: PRINT RS ;PRINT THE CHARACTER 
016030 MOVE RS.RO 
016032 004737 016054 CALL CPNT 
23 016036 005302 DEC Re sREPEAT FOR ALi DIGITS 
24 016040 0013635 BNE 108 s ON STACK 
25 016042 POP <R4,R5,R35,R2> 
016042 012604 MOV (SP)+.R4 
016044 012605 MOV (SP)-.R5 
016046 012605 MOV (SP)+-.R3 
016050 MOV (SP)-.R2 


et, RR TS A: A TE I LE LLL A LL LL a SL AS TN 


ZUDEDO 


POP - 
GL OBAL SUBROUTINES SECTION 


~~ 
NK OWen PY blue 


135 Ol 


14 


iS 
16 


17 


18 O01 


19 016222 


;PRINT ONE CHARACTER 
i 
;CALL WITH MACRO PRINT 


CPNT: 


PX: 


PS: 


CPNTX: 


MOVB RO,ERRCHR 
PUSH Ri 

MOV eet Ri 
CMPB RO,OCR 


BNE i$ 

MOV @ERRNL .R1 

JMP GPTYPE 

PRINTF R1, CERRCHR 


BR CPNTX 
PRINTB R1,ERRCHR 


BR CPNTX 
PRINTX R1,0ERRCHR 


BR CPNTX 
PRINTS R1,@ERRCHR 


POP Ri 
RETURN 


Né& 


1 UOA ORV FMTR MACRO VO5.0CO Tuesday 24-May-85 10:10 Page 95 


EE EES EAS A AIT TO TS 


MOV Ri, 


Bgasds gg8882 ggaeee 098888 


SEQ 0104 


-CSP) 


CERRCHR, -( SP) 
R1,-CSP) 
62, -(SP) 


CSPNTF 
66, SP 


GERRCHR, -( SP) 
R1.-CSP) 
e2, -(SP) 


SP RO 
CSPNTS 


GERRCHR, -€SP) 
Rl. -(SP) 

2. -€SP) 

SP .RO 

CSPNTX 

#6 .SP 


SERRCHR, - (SP) 
Ri. -C€SP) 
@2.-C(SP) 


SP ..RO 
CSPNTS 


MOV (SP )+.R1 


ey LO LL ELL LLL LOA OA 
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MF OOS. FY nie 


moe 


012737 


016106 
01615¢ 
016154 
016200 


900012 


014766 


003224 
00322% 
004224 
CI3S2e4 


bi 
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sPRINT FORMATTED MESSAGE 
> 
;CALL WITH MACRO PNT, PNTF, PNTB, PNTX, OR PNTS 


LENTEF : 
LPNTB: 
1 PNTX: 


LPNTS: 


LPNT: 


MOV @PF .PTYPE 
PN 


BR LPNT 
MOV @PB,PTYPE 
BR LPT 

MOV OPx .PTYPE 

BR LPNT 

MOV OPS,PTYPE 
PUSH «R2,R35,R4,R5> 


MOV (R1)+,R2 
MOV SP,R4 
ADD 210. ,R4 
PUSH R1 


CALL OSTRNG 
POP <RO,RS,R4,R5,R2,R1> 


ADO (RO)+,SP 
JP GRO 


sGET ADDRESS OF STRING 
sCOMPUTE ADDRESS OF ARGUMENTS 
s WHICK ARE NOW ON STACK CIF ANY) 
sSAVE RETURN ADDRESS 
MOV RL, -C SP) 


sPRINT THE FORMATTED MESSAGE 
sRESTORE ALi REGISTERS 


¢ Ri 
s*DJUST STACK POINTER OVER ARGUMENTS 
; HE TURN 


wt y oh Ory : UDA 
Gi Rak supR AGT ENE S 


;DIVIDE 


< 


ca 
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; DIVIDE A 32 BIT UNSIGNED NUMBER BY A 16 BIT UNSIGNED NUMBER. 
sREPLACE DIVIDEND WITH QUOTIENT AND RETURN REMAINDER, 
s;WILL NOT CHECK FOR DIVIDE By ZERO. 


; 
s INPUTS: 


F R4 - HIGH 16 BITS OF DIVIDEND 
A RO - DIVISOR 

sOUTPUTS: 

3 RS - LOW 16 we HS ot teat tan 


18: 


2s: 


R$ - LOW 16 BITS OF DIVIDEND 


R4 - HIGH 16 BITS QUOTIENT 


RS - REMAINDER 


MOV R2,-( SP) 
s5E7 UP SHIFT COUNT 
sSTART WITH ZERO REMAINDER 
sSHIFT LEFT INTO RS 


sWILL OIVISOR GO INTO REMAINDER 
sONLY SUBTRACT IF IT wIit 
;SUBTRACT OIVISOR 

sPUT A ONE INTO QUOTIENT 

sCOUNT THE SHIFTS 


OV (SP )- R2 


21 
23 


016370 
0163574 


013701 
116165 
0506 


UDA ORV FMTR MACRO VO5S.00 
SECTION 


!uesday 


;. OADDM 


D4 
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“ 
{LOAD AND START A 9M PROGRAM INTO A CONTROLLER 


: 
; INPUTS: 


3 
sOUTPUTS: 


i OADOM: 


RS - CONTROLLER TABLE ADDRESS 
- POINTER TO START OF OM PROGRAM IN MEMORY 


IF LOAD weereoge Z CLE 


IF ERROR - Z SET 

MOV OMPROG,R 

MOVE DMTHOCRI)D, C.TOTCRS) 
CLRB C.TOT> iCRS) 

MOV C.VECCRS),R4 

AND CT.VEC,R4 

MOV RS,R1 


ADD @C.JSR,R1 
SETVEC R4,R1,OPRIO7 


CALL UDAINT 
BEG LOADER 


AR 
ONTROLLER TABLE MARKED .OADED 


1GET STORAGE ADDRESS OF DOM PROGRAM 
sGET TIMEOUT VALUE 


sGET VECTOR OF UDA 


BIC orC<CT.VEC> ,R4 
;GET INTERRUPT SERVICE LINK 


;SET UP INTERRUPT VECTOR 
MOY 


OPRIO7, -€ SF) 
MOV Ri, -(SP) 
MOV R4, -C(SP) 
MOV @3.,-C(SP) 
TRAP CSSVvEC 

#10,SP 


ADO 
sINITIALIZE UDA WITH SMALLES? 
3; PING BUFFER AND INTERRUPTS ENABLED 
sBRANCH IF AN ERROR 


ene 


one, 
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0.2700 
004737 
013/764 


016774 
000057 


000024 
00c002 


MOV @OP .ESP,RO 

CALL BLUCMO 

MOV OMPROG HC .CPK +P. UADR(RA ) 
MOV SOMPROG,HC.CPK +P. BCNT(R4) 
MOV DMPROG,HC.CPK +P. OVRIL.(R4) 
ADO | Pehaaeeeteeiaent 


BIT @ST.MSK,HC .MPK +P. STS(R4) 
BNE LOADE1 

BIC @CT.CMD-CT.REG,C.FLGC(RS) 
BIS @C’.RN,C.FLGCRS) 

RE TURN 


{I GQ 


sBVUILD EXECUTE SUPPLIED PROGRAM COMMARD FACKET 
sLOAD MAIN PROGRAM ADDRESS 

; AND SIZE 

sLOAD OVERLAY ADDRESS 


;SEND COMMAND TO UDA 
sWAIT FOR MESSAGE RESPONSE 


sABORT IF NO RESPONSE 


sCHECK FOR ERRORS 


;CLEAR COMMAND OUTSTANDING FLAG 
;SET OM PROGRAM RUNNING FLAG 


9106 


t “4 
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GLOBAL SUBROUTINES SECTION 


utr 


1JOA FAILED 10 DOWNLINE LOAD DM PROGRAM 
LOADE1L;: ERRDF 34, ,ERROS4 


LOADER: SEZ 
RE TURN 


epee meena tn ant eat ON NR LO LLL EL LL LLL ALLA LLL OD, 


TRAP 
WORD 


- ORD 
3SE7 Z TO INDICATE ERROR OCCURRED 


CSE R08 
™4 


9 
ERROS4 


I OE EEO ET A SR 


oh, 
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aD. Ae where 


10 


016570 


000016 
000100 
000060 


001000 
000031 


177777 
000030 


000114 


:8L 0CMD 


i 
;BUILD A COMMAND IN COMMAND PACKET 


’ 

; INPUTS: 

RS - CONTROLLER TABLE ADDRESS 
RO - COMMAND CODE 


BLDCO: 
BLOCI: 


4 - ADDRESS OF HOST COMM AREA 
COMMAND PACKET CONTAINING REF NUMBER AND OPCODE. OTHER os CLEARED. 
CMO REFERRENCE NUMBER IN CONTROLLER TABLE INCREMENTED AND RES 


IN COMMAND PACKET 
RO - CONTENTS DESTROYED 


: PUSH <R1,RO> 
MOV R1.,-CSP) 
MOV RO, -(SP) 
MOV C.RINGCRS),R4 ;GET ADDRESS OF HOST COMM AREA 
MOV R4,RO ;COPY TO RO 
ADD @HC .CEV.RO ;COMPUTE ADORESS =. COMMAND ENVELOPE 
MOV OHC.PSZ,CRO)- sLOAD PACKET LENGTH 
MOV @0UP,R1 sLOAD DIAG CIRCUIT IDENTIFIER 
CMP @0P MUR. CSP) sIF CODE IS MAINTENANCE WRITE 
SNE BLDCO ; GET OTHER CIRCUIT IDENTIFIER 
MOV @DIAG,R1 
MOV R1.CRO)> sPUT IDENTIFIER INTO PACKET 
MOV @<HC .PSZ>/2,R1 ;GET WORDS TO CLEAR 
CLR (RO)> SCLEAR PACKET 
DEC Ri 
BNE B8L0C1i 
POP HC .CPK +P. OPCD(R4 ) sPUT OPCODE IN PACKET 
MOV (SP)-.HC.CPK-P.OPCD(R4 >) 
POP Ri sRESTORE Ri 
MOV (SP)-.R1 
RE TURN 


+8 eR ee ee ee an eee 


NES 


ORV FMTR MACRO VO"S 
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SNC CMO 


| SEND A COMMAND TO THE UDA 
;MARK BOTH PACKETS AVAILABLE TO THE 
COMMAND ISSUED BIT IN CONTROLLER TABLE AND INITIALIZE 


;UDA. SET 


; TIMEOUT COUNTER. 


3 

; INPUTS: 

: 

s™ITPUTS: 
R 


SNDCMO : 


RS - CONTROLLER TABLE ADDRESS 
4 - ADDRESS OF HOST COMM AREA 


PUSH <RO,RI1> 


‘les, ~R4 

REF CRS) ,HC.CPK »P.CRFECR4) 
-OWN*RG.FLG,HC.MCTCR4) 
“OWN, HC .CCTCR4 ) 


BoC. FLGCRS) 


MOV RO, -( SP) 
MOV R11. -(SP) 
sLOAD R4 WITH HOST COMM AREA ADDRESS 
s INCREMENT CMD REFERENCE NUMBER 
;PUT IN PACKET 
— MESSAGE PACKET AVAILABLE 
;MARK COMMAND TO UDA 
; TELL UDA ee IS THERE 
sMARK COMMAND ISSUED 


MOV (SP)+-.R1 
MOV (SP )-,RO 


ZUDEDO POP ii 
GLOBAL SUBROUTINES SECTION 


016770 
016772 


000124 
000244 


000122 


000120 


| “4 
: 
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:CLRBUF 


;CLEAR THE SPECIFIED DATA BUFFER IN THE HOST COMM AREA 
;AND LOAD BUFFER DESCRIPTOR IN COMMAND PACKET TO THE BUFFER 


; INPUTS; 
: R5 - CONTROLLER TABLE ADDRESS 
; R4 - ADDRESS OF HOST COMM AREA 
RO - OFFSET INTO HOST COMM AREA TO DATA BUFFER 
‘OUTPUTS: 
DATA BUFFER CLEARED 
; COMMAND PACKET POINTING TO BUFFER 
: BYTE COUNT SET TO SIZE OF BUFFER 
: R4 - ADDRESS OF DATA BUFFER 
CLRBLUF; PUSH <RO,R1> 
MOV RO, -CSP) 
MOV Ri, CSP > 
ADD R4,RO sADO START OF HOST COMM AREA TO OFFSET 
MOV RO,HC.CPK +P .UADR(R4 ) ;PUT BUFFER ADDRESS IN COMMAND PACKET 
MOV @HC.85Z,.HC.CPK+P .BCNT(R4) ;PUT SIZE OF BUFFER IN COMMAND PACKET 
MOV RO,R4 sPUT BUFFER ADORESS IN R4 
Vv OHC .BS Z/2,R1 sGET SIZE OF BUFFER IN WORDS 
CLRBFL: CLR (RO)> ;CLEAR ALL THE WORDS 
DEC Ri 
BNE CLRBFL 
POP <R1,RO> 
MOV (SP)-,R1 
MOV (SP)+- FO 
RE TURN 


5 ee SS re ee ee + 2 eee = 


SEG OlLie 


iia 
«J 


ZUDEDO PDP -11 UDA ORV FMTR MACRO VO5.00 Tuesday 24-May 85 10:10 Page 104 
GLOBAL SUBROUTINES SECTION 


a OL & ate 


016774 


003210 


003222 000042 


003220 000040 


000014 


BIT OCT.MSG,C.FLGCRS) 
BNE 3% 

MOV 2(RO),R1 

BNE 4% 

BRE AK 

TST KW.CSR 

SEQ 18 

CMP KW.EL+2.C. TOHCRS) 
BHI 23 

BNE 18 

CMP KW.EL.C.TOCRS) 


8.0 1 


& 
2s: ERROF 36, -ERROS6 


POP <R1,RO> 


SEZ 
RE TURN 


ett aera ala tet tT ON LL LOL ALLA LA LLL LLL LL PLL LLL LL 


;SET TIME OUT VALUE OF 
sPOINT TO TIME OUT COUNTER. 


;WAITMS 
: 
;WAIT FOR UDA TO RESPOND WITH A MESSAGE PACKET 
: 
; INPUTS: 
; RS - ADDRESS OF CONTROLLER ‘ABLE 
;QUTPUTS: 
: Z CLEAR IF NO ERROR 
3 Z SET IF ERROR, MESSAGE PRINTED 
WAITMS: PUSH <RO,R1> 
MOV #30. ,RO 
MOV R5,R1 
ADD @Cc.TO,R1 
CALL SETTO 


;GET ADDRESS OF UDAIP REGISTER 
3L00K IF INTERRUPT OCCURRED 
sBRANCH IF SO 

;LO00K AT UDASA REGISTER 
;BRANCH IF ERROR CODE PRESENT 


TRAP C SBRK 
;SEE IF A CLOCK ON SYSTEM 


sCHECK IF TIMEOUT HAS HAPPENED 


ZUOE 


GL 


DO 
AL 


PDP. 
SUBR 


017110 
017116 
017116 
017120 
017122 
017124 
O1712€ 
017126 
0171350 
017132 
017134 
017136 
017136 
017140 
017142 
017144 


il UDA ORV FMTR MACRO VOS.00 Tuesday 
QUTINES SECTION 


042765 000010 000014 533%: 


4$: 


IY 
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BIC @CT.MSG,.C.FLGCRS) 
POP «<R1,RO> 


Ci.2 
RE TURN 
ERRDF 37, ,ERROS7 


POP «<R1,RO> 


SEZ 
RE TURN 


A LE LAE EI NE OLE ER TTS AA SST OE 


&£G O114 


sCLEAR MESSAGE RECEIVED FLAG 


sGIVE NO ERROR RETURN 


EE ST ee —— 


MOV (SP )+-,R: 
MOV (oP). aoe 


TRAP CSERDF 
-WORD O 
-WORD ERRO?? 
MOV (SP)+,h1 
MOV (SP)-,RO 


LY 
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i ;NXMI 
e i 
F ‘NON-EXISTANT MEMORY SERVICE ROUTINE 
~ : 
©, ; INPUTS: 
é NXMAD SET TO ZERO 
? jOurPUTS: 
8 NXMAD SET TO ONES IF NON-EXISTANT TRAP OCCURED 
10 017146 BGNSRV NXMI 
a 017146 NYMI:: 
12 O17146 012737 177777 002200 MOV @-1,NXMAD 
1 
14 017154 ENDSRV 
017154 L 10031: 


017154 000002 


RTI 


SES 9115 


oo- 
PWM OD Sw DY whew 


on 


MY 
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onto 


SUDA INTERRUPT SERVICE ROUTINE. MARKS UDA CONTROLLER TABLE THAT AN 
se ERRUPT HAS BEEN RECEIVED, 


;THIS ROUTINE IS CALLED BY A ee RO, one INSTRUCTION FROM Wy 
; THE oe ER TABLE. THE PC STORED IN RO IS THE ADORESS OF THE C.FLG 
;WORD IN THE CONTROLLER TABLE. THE STACK CONTAINS THE SAVED CONTENTS 
“al RO FOLLOWED BY THE INTERRUPTED PC AND PS. 


. RO - ADDRESS OF C.FLG WORD IN CONTROLLER TABLE 
STACK - SAVED CONTENTS OF RO 
OUTPUTS: 
3 CT.CMD CLEARED AND CT.MSG SET IN C.FLG WORD OF CONTROLLER TABLE 
: RO - RESTORED FROM STACK 


BGNSRV UDASRV 


052710 000010 BIS @CT.MSG,C(RO) ;SET CT.MSG 
POP RO sRESTORE RO 
012600 MOV (SP)-,RO 
ENOSRV 
i. 10032: 


UDASRYV: : 


i64 
017164 900002 RTI 


- —— ee eG I ERE NR EE EE ER ERE ES Te Se —s - 


LL ALLL LL LL 


ZYDEDO PDP -i 


GLOBAL SUBROUTINES SECTION 


OewaPVibwhr 


10 


017212 


017214 
017220 
017224 
017230 


017232 
017234 


017236 
017240 


017242 
017242 
017244 
017246 


060200 
005505 


010021 
01031). 


012605 
012602 
000207 


003216 


003220 
003222 
003220 


NY 
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;SETTO 
: 
;SET TIMEOUT COUNTER TO SOME NUMBER OF SECONDS FROM CURRENT TIME, 
: 
; INPUTS: 
: RO - NUMBER OF SECONDS FOR TIMEOUT 
: Ri - ADDRESS WHERE TWO WORD TIME 10 BE PUT 
;OUTPUTS: 
: RO - CONTENTS DESTROYED 
: Ri - INCREMENTED BY 2 
;COMPUTE CLOCK TICKS TIt TIMEOUT 
SETTO: PUSH <R2,R3> 
MOV R2, -C SP) 
MOV RS. -(SP) 
Re sC T 

MOV KW.HZ,RS ;GET MULTIPLICAND 
SETOO: ASR RO sSHIFT MULTIPLIER TO RIGHT 

Bcc SETOL = A ONE BIT SHIFTED OuT 

RS, ADD MULTIPLICAND TO PRODUCT 

SETOL: rat - ; DOUBLE THE MULTIPLICAND 

BNE SETOO sCONTINUE UNTIL MULTIPLIER IS ZERO 


;GET CURRENT TIME 

SETO2: MOV KW.EL.RO 
MOV KW. EL +2,R5 
CMP RO, KW.EL 
BNE SETO2 

;ADD TIME TIL TIMEOUT 


ADD R2,RO 
ADC RS 


sPUT RESULT IN STORAGE 


MOV RO,(R1)-+ 
MOV R3,CR1) 


POP <R3,R2> 


RE TURN 


sGET TIME 


:IF CHANGED DURING RETRIEVAL 
; GET IT AGAIN 


; ADD 


a ee ee ee _—- ~ = 
ae eT el OS ET CA LEE LE OLN ALL LLL LLL LE LE ~~ _—_ 


SEQ 0117 


JUDEDO POP 11 UDA ORV FMTR MACRO VOS.00 Tuesday, 
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017270 
017274 


000016 
000006 
177777 


017534 


000002 
000310 
000002 


177417 


177760 
000006 


’ 


eke 
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= 
HF UNC TIONAL DESCRIPTION: 
$ SUBROUTINE TO INITIALIZE A UDA AND BRING IT ON-LINE. 
; ALL STEPS ARE CHECKED. AN ERROR MESSAGE 15 REPORTED IF ANY ERROR 
: DETECTED. 
: 
— 
ADDRESS OF CONTROLLER TABLE. 

IMPLICIT INPUT S: 

C.RING(RS) - ADDRESS GIVEN TO UDA AS START OF RING BUFFER. 
\ eee OF RING STRUCTURE IS ONE ENTRY EACH. 
3 
$ CONDITION Z - SET IF ANY ERROR REPORTED. CLEAR IF NO ERROR. 
: R4 - ADDRESS OF UDAIP REGISTER IN UDA 
3 RS - UNCHANGED. 


sFILL HOST COMMUNICATION AREA WITH ALL ONES 


UDAINT: MOV C.RING(CRS),Re sGET FIRST ADDRESS OF RING BLFFER 
MOV @<HC .RSZe2°HC ,ISZ>/2,R5 sGET SIZE OF RING BUFFER 
UDATIL: MOV @-1,(R2)> sWRITE ONES TO BUFFER 
DEC R53 sCOUNT THE WORDS IN BUFFER 
BGT VDATIL ;L00P UNTIL ENTIRE BUFFER WRITTEN 
300 THE INITIALIZATION 
CALL Bell 300 FIRST THREE STEPS 
BCS UDAIEX sGET OUT IF UDA MICROCODE REPORTED FAILURE 
MOV (R3)+,2(R4) SWRITE NEXT WORD TO UDASA REGISTER 
#200. .R3 ;GET TRY COUNTER 


MOV 
UDAIIA: MOV 2(R4),R2 S LOOK AT UDASA 


BEG LZAIIC 
8PL UDAIIB 
ERRDF 24, ,ERRO24 
TRAP C SERDF 
-WORD 24 
-WORD Oo 
.WORD ERRO24 
SBR UDAIEX 
UDAII8B: DEC RS 
BNE UDAIIA 
UDAIiIC: MOV R2,2¢(R4) ;sWRITE O TO UDASA (PURGE) 
MOV (R4),R2 sREAD FROM UDAIP (POLL) 
CALL UDARSP sWAIT FOR STEP OR ERROR BIT 
I ;GET OUT IF UDA MICROCODE REPORTED FAILURE 


;GET COPY OF MODE: CODE 
;sCLEAR OTHER BITS 
:MOVE TO RIGHT OF REGISTER 


3 
@rC<SA,CNT>,RS 


S 
BIC 
SR 
ASR 
ASR RS 

ASR RS 

BIC @fC<SA.MCyV> Reo sMICROCODE VERSION IN R2 
ae R3, 06 ;sCONTROLLER MODEL MUST BE 6 
cup 
BGE 


UDATID 
sMICROCODE VERSION MUS! BE 


R2,05 
UDAT2 ; 3 OR GREATER 


ZUOE 


017406 
017406 
017410 
017412 
017414 
SS 017416 


104455 
0000 16 
000000 


011732 
000444 


WUDATID: 


C10 


ERRDI 14,,ERRO1L4 


BR UDAIEx~ 
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54 


sREPORT CONTROLLER NEEDS 


NEW HME VIGION. 
TRAP CsEPor 
, WORD 14 
. WORD 9) 
, WORD ERROLS 


we ee + 


4 
GL 


FOSS ~OPYV bili ne 


~~ 


017420 
017424 
017430 
017432 
017434 
017436 
017440 


017442 
017442 
017444 
017446 
017450 
017452 


016502 
012705 
005 


000264 
000207 


000016 
000006 


;CHECK HOST 
UDATe: 
UDAT AL: 


BR UDAIEX 


> i ( 

i4i\) 
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UDAI2E: ERRDF 23, ,ERRO?2S 


COMMUNICATION AREA FOR ALi 


C.RINGCRS),R 
Vv oc "RS 7 #2 :MC 1SZ>/2,R3 


ZEROS 


sGET FIRST ADORESS OF RIN BFE 
sGET SIZE OF RING BLFFER 
;CHECK WORD IN BUFFER 
1GO TO ERROR REPORTER IF NOT ZERO 
sCOUNT THE WORDS IN BUFFER 
sLOOP UNTIL ALL WORDS CHECKYED 


sREPOR: BUFFER NOT CLEARED 
TRAP 


CSERDF 
. WORD 2s 
. WORD 

ERROZ 3 


- WORD 


;SEND GO BIT TO UDASA REGISTER TO END INITIALIZATION 


UDAIS: 


sERROR RETURN 


UDAIF.4£: 


SEZ 
RET 


MOV C.BSTCRS),RO 
ASL 


;GET BURST VALUE 
;SHIFT TO POSITION 


;SET THE GO BIT 
;SEND TO UDA 


;CLEAR Z AS NO ERROR INDICATION 


3SEY Z TO INDICATE ERROR OCCURRED 


SEG 9120 
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ro 
Me OO. OY & ate 


13 


017672 


104422 


010146 
916504 


042704 
006204 


006204 
052704 
010437 
016537 
062737 


017756 
017756 


;VDAILST 


f i U 


SEG %ici 


:START THE INITIALIZATION PROCESS ON THE SELECTED UDA. 
:STOP BEFORE WRITING THE THIRD WORD SO UDA DOES NOT 
;ATTEMPT ANY UNIBUS TRANSFERS. 


3 
; INPUTS: 


UDAIST: 


RS - ADDRESS OF CONTROLLER TABLE 
;LOAD TABLE OF DATA TO SEND 10 UDASA REGISTER 


BREAK 
PUSH R1 


MOV C.VECCRS),R4 
AND CT.VEC,.R4 


ASR R4 
MOV R4,UDAI 


MOV C.RINGCRS),UDAID2 
ADD @HC .MSG,UDAID2 


TRAP 
MOv Ri, 


CSBRK 
-CSP) 


BIC orc<CT.vEC>,R4 


sSET STEP BIT IN DATA WORD 
30AD INTERRUPT VECTOR 
sL0OAD MEMORY ADORESS 

; OF FIRST RESPONSE RING 


;START THE INITIALIZATION BY WRITING TO UDAIP REGISTER 


MOV C.UADRCRS),R4 
CLR NXMAD 
SETVEC @4, ONXMI, OPRIO7 


TST 2CR4) 
CLR (R4) 
CLRVEC 4 


TST NXMAD 
BEQ VOAISG 
ERROF 20, ,.ERRO2O 


SEC 
BR UDAISE 


ee ee ce ee ee eS 


;GET ADDRESS OF UDAIP REGISTER 
;CLEAR MEMORY ERROR FLAG 
;SET UP VECTOR 4 


MOV OPRIO7. -(SP) 
MOV o4,-(SP) 
MOV @3.-(SP) 
TRAP CsSvEC 
ADO #10,SP 
sACCESS UDASA REGISTER 
sWRITE TO UDAIP 
;GIVE UP THE VECTOR 
04 ,RO 
TRAP CsCvec 
;SEE IF A MEMORY ERROR OCCURRED 
TRAP CSERD® 
-WORD 20 
. WORD 0 
. WORD ERROLO 


ee AE RT SL LTE LOE EO GL LL! LE ALL AL ALLL A 
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1 ;SET UP LOOP PARAMETERS TO EXECUTE THE FOUR STEPS OF INITIALIZATION 
3 017674 O12787 004000 020216 UDAISG: MOV @SA.S1,U0ARSO ;STORE RESPONSE MASK 

‘ 017702 012703 017750 MOV @UDAIOT.R3 ;AND INOEX TO TABLE 

6 :WAIT FOR AND CHECK RESPONSE DATA 

8 017706 044737 020060 UDAISL: CALL UDARSP ;WAIT FOR STEP OR ERROR BITS 
9017712 1.03414 BCS UDAISE sEXIT IF ERROR 

10 017714 004733 CALL @(R3)- ;CALL RESPONSE CHECKER FOR stE° 

11 OL771e 103412 BCS UDAISE ;GET OUT IF ERROR 

12 017720 006337 020216 ASL UDARSO ;SHIFT TO NEXT STEP BIT 

13 017724 032737 04 020216 BIT @SA.S4,UDARSD ;CMECK IF NOW AT STEP 4 

14 017732 001003 BNE UDAISX ;GET Out IF SO 

15 017734 012364 000002 MOV (R3)+,2(R4) ;WRITE DATA TO UOASA REGISTER 

16 017740 000762 BR UDATSL ;STAY IN LOOP 

18 017742 000241 UDAISX: CLC ;CLEAR CARRY FOR NO ERROR INDICATION 
19 017744 UDAISE: POP R1 

017744 012601 MOV (SP)+. Ri 

20 017746 000207 RETURN 


ee eee 


~VWOEDO P 


OQSnaOVkvltrw 


10 


45 
46 


(51 0 
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017750 
017752 
017754 
017756 
017760 
017762 
017764 


017766 
017772 


017774 
020000 
020002 
020006 
020012 


012701 
000422 


013701 
000301 
042701 


052701 
000412 


013701 
042701 
052701 
000403 


004490 


017752 


177400 
010000 


017752 
177400 
020000 


137760 


;DATA TO BE SENT AND RECEIVED BY UDA INITIALIZATION 


UDAIDT: .WORD UDAIR1 . sFIRST WORD RESPONSE CHECK ROUTINE 
UDAID1: .WORD 0 sFIRST WORD TO SEND TO UDASA 

.WORD UDAIR2 sSECOND WORD RESPONSE CHECK ROUT INE 
VUDATD2: .WORD 0 sSECOND WORD TO SEND 10 UDASA 

.WORD UDAIRS s THIRD WORD RESPONSE CHECK ROUTINE 
UDAIOS: .WORD SA.TST ;THIRO WORD TO SEND TO UDASA 

.WORD UDAIR4S sFOURTH WORD RESPONSE CHECK ROUTINE 


;RESPONSE CHECK FOR FIRST WORD FROM UDASA 

;CHECK FOR PROPER CONTROLLER TYPE 

VDAIRI: MOV @SA.S1+SA.DI,R1 ;SET STEP ONE BIT 
BR UDAIRC sNOW COMPARE 


sRESPONSE CHECK FOR SECOND WORD FROM UDASA 
: CHECK FOR ECHO OF INTI AND VECTOR 


UDAIR2: MOV UOAID1,R1 
SWAB R1 


BIC #177400,R1 
BIS @SA.S2,R1 sSET STEP 2 BIT 
BR UDAIRC sNOW COMPARE 


s;RESPONSE CHECK FOR THIRD WORD FROM UDASA 
: CHECK FOR ECHO OF MESSAGE AND COMMAND RING LENGTHS 


UDAIRS: MOV UDAIDI.R1 s;GET WORD SENT TO UDASA 
BIC #177400,R1 sJUST LOW 8 BITS 
GIS @SA.S3.R1 ;SET STEP 3 BIT 
BR UDAIRC sNOW COMPARE 


sGET WORD SENT [1O UDASA 
sGET HIGH 8 BITS 


RESPONSE CHECK FOR FOURTH WORD FROM UDASA 
s CHECK FOR ECHO OF PURGE AND LFAIL BITS 


UDAIR4: MOV R2,R1 sGET RESPONSE FROM UDA 
BIC @fC<SA.S4+SA.MCV>,Ri sKEEP MICROCODE VERSION AND STEP 4 


;COMPARE EXPECTED DATA IN R1 WITH ACTUAL DATA IN R2 
UDAIRC: CMP R1,R2 ;sCOMPARE THE DATA 
BEG UDAIRX sEXIT IF COMPARED CORRECTLY 
RROF 25, .ERROZS ;REPORT ERROR 
TRAP _— 


. WORD 
. WORD 


SEC 
UDAIRX: RETURN 


EE Es er SST « 


’ “ a | 
4 i125 


ZUDEDO POP 
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22.0 Fb wee 


10 


37 


010146 
052737 


020216 


FiO 
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; UDARSP 


;WAIT FOR UDA TO RESPOND WITH DATA IN UDASA REGISTER. 

;EITHER STEP BIT FROM MASK IN LOCATION UDARSD OR ERROR GIT 
;WILL CAUSE A TERMINATION. 

;AN ERROR MESSAGE WILL BE PRINTED IF THE UDA DOES NOT RESPOND 
:IN 10 SECONOS OR IF ERROR SETS. 


3 
; INPUTS: 
é UDASRD - MASK OF STEP BIT TO LOOK FOR 
RS - ADDRESS OF CONTROLLER TABLE 
R4 - ADDRESS OF UDAIP REGISTER 
‘ OUTPUTS: 
PF ERROR MESSAGE IF TIME OUT ON RESPONSE OR ERROR BIT SETS 
: R2 - DATA FROM UDASA REGISTER 
: CARRY SET IF ERROR BIT SETS OR TIME OuT 
UDARSP: PUSH Rl 
MOV Ri, -(SP) 
BIS @SA.ERR,UDARSD ;SET ERROR BIT IN MASK WORD 
MOV #10. ,R0 ;SET UP FOR 10 SECOND TIMEOUT 
MOV RS,.R1 ‘POINT TO COUNTER IN CONTROLLER ‘ABLE 
oc .TO,R1 
CALL SETTO 
Ri 
MOV (SP )-.R1 
UDARS1: BIT UDARSD,2(R4) 3. 00K AT ERROR AND STEP BIT 
BNE \IDARS2 ;sBRANCH IF EITHER SET 
T C sBRK 
TST KW.CSR sSEE IF CLOCK ON SYSTEM 
BEG UDARS1 
a en ee ;CHECK IF TIME OUT OCCURRED 
BNE UDARS1 
CMP KW.EL.C.TOCRS) 
BLO UDARSI 
18: MOV 2(R4),R2 :;GET REGISTER CONTENTS 
ERRDF 22, .ERRO22 sREPORT TIME OUT ERROR 
TRAP CSERDF 
. WORD 22 
. WORD 0 
. WORD ERRO2Z2 


BR UDARSE 


————— ee es 


ZUDEDO POP i 


Ut & ah)» 


016402 000002 


100006 
104455 
000025 


900000 
011762 
000261 
000207 


000241 
00020" 


000000 


L19 
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:CHECK IF ERROR BIT SET 
UDARS2: MOV 2(R4),R2 


BPL VUDARSX 
ERROF 21,,ERRO21 


UDARSE: SEC 
RET 


;NORMAL EXIT 
UDARSX: CLC 
RE TURN 


;LOCATION FOR STEP BIT MASK 
UDARSD: .WORD O 


sGET REGISTER CONTENTS 
sEXIT IF ERROR NOT SET 
sREPORT ERROR INFO 


. WORD <i 
. WORD 0 
, WORD FRRO?! 


sCLEAR CARRY AS NO ERROR INDICATION 


sLOAD BY CALLING ROUTINE 
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Oe Sk water 


062737 
005537 
012777 


000002 


000001 0035220 


003222 
000105 


162750 


;KWILT 


J1LO 


SCLOCK INTERRUPT SERVICE ROUTINE — 
BGNSRV KW11I 


ENDSRV 


ADD @1,KW.EL 
ADC KW.EL +2 
MOV @KWOUT. ,@KW.CSR 


KWill:: 


;COUNT THE INTERRUPT 
sRESTART THE Ci.OCK 


L 10035: 
RTT 


t GU 9126 


ILO 
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Pee) Dewneseece Oe Been 


~~ 
~ 


le 


003210 


000060 
016054 


016264 


;RNTIME 


: 
;PRINT RUNTIME 


; 
; INPUTS: 


: 
;OUTPUTS 


18: 


2%: 


KW.EL - CONTAINS ELAPSED TIME 
KW.HZ - HERTZ OF CLOCK 
TF CLOCK ON SYSTEM: 

* RUNTIME HH:MM:SS “ PRINTED 
IF NO CLOCK: ONE SPACE IS PRINTED 


TST KwW.CSR sCHECK IF A CLUCK PRESENT 

BEQ RNTIMX ;BRANCH IF NOT 

PUSH <RO,RS,.R4,RS» 
MOV RO, -(SP, 
MOV R3,-(SP; 
MOV R4, -CSP) 
MOV RS, -CSP) 


MOV KW.EL,RS ;GET ELAPSED TIME 


sGET SPEED OF CLOCK 


CALL OIVIDE sCOMPUTE SECONDS OF ELAPSED TIME 
MOV .60.,RO sNOW DIVIDE BY 60 
CALL DIVIDE ; TO COMPUTE MINUTES 
PUSH RS ;SAVE REMAINDER AS SECONDS 
MOV RS. -CSP) 
CALL DIVIDE sOIVIDE BY 60 AGAIN 
PNT RNTIN,RS sPRINT HOURS 
MOV RS, -CSP; 
JSR Ri. LPNT 
WORD RNTIM 
WORD PNT .CT 
a . 3IF MINUTES 9 OR LESS 
PRINT @'9 ;PRINT A LEADING ZERO 
MOVB @°0,80 
CALL CPNT 
PNT RNTIMI.RS sNOW PRINT MINUTES 
MOV RS. -€SP) 
JSR R1L.LPNT 
.WORD RNTIM1 
.WORD PNT.CT 
POP RS sGET SECONDS 
MOV (SP )-. RS 
CeP RS5,¢ 3IF 2? OR LESS 
BGT 2% 
PRINT @ - ;PRINT A LEADING ZERO 
MOVB 2@°0,RO 
CALL CPNT 
PNT RNT ett ;NOW PRINT SECONDS 
RS. -CSP) 
JSR R1LPNY 
WORD RNTIM2 
WORD PNT .CT 
POP <R5,R4,R35,RO> sHOURS IN RS 
MOV (SP)>+,R5 


a ee ~ es 


Gi OB AL SUBROUTINES SECTION 


ZUBEDO POP 
0204.4 
020416 
020420 

35 020422 
020422 
020426 

3¢ 020432 


012604 
01260! 
012600 


112700 
004737 
000207 


000040 
01€054 


1 UOA ORV FMTR MACRO VO5.00 Tuesday 
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PRINT «<@° » 


RE TURN 


L.LO 


;PRIN! A SPACE 


a 


2 9126 


-— ~~ <2 on 


— «© 


_ A et A li ae a ee A a ee OL Ce CL IE EL LCL LL LE LLL LL ELC LE LLL LE LE 


<= es ee ee a 
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Oenrvihlwlhd 
~“N 
tw 


012703 
005000 


DATE: 


DAY: 


DASIL: 


MLO 
SEQ 9129 


GMANID DATEQG,DATEI,A,-1,1,11.,°ES sGET DATE 


SEE 


10000$: 
MOV @DATEI,RS 
CMPB | (lalla 


C(RS)+,0'9 


;GET POINTER TO ANSWER 


ASa 
ir tote e 
— ww 
2° 

o 


CRS)+,0'9 
DERR 
CR5)+,@' = 


sao 


333 
: 


s;GET NUMBER OF MONTH 
;GET POINTER TO MONTH NAMES 


,CR3)« 


ae pak take 
ae 


CRS), CRS)> 


38 
nd§ 


RS), CR3)+ 


ae 
3 


~4 
aes 
232 


z 
= 
4 
4 
m 
, 


JSR R1,LPNIF 


: 
3 
~ 
m 


et ;GET POINTER TO DATE FOR FORMATTER 
sGET COPY OF MONTH NUMBER 


; IF 10 OR GREATER 

sPUT A “1” IN OUTPLT 

eae MONTH NUMBER ASCII 
;PUT A NUMBER IN OUTPU 

-,C(RL)>+ sPUT A “*-" IN QUTPUT 

ADO eDays. 1,R4 IGET POINTER TO DAYS IN MONTH 


NUMBER OF MONTH 
MOV SDATEI,RS 
CLR RO 


baee 
See 


‘1, CR1L)> 


ee & 
7 oe 
TuSS 


XED BY 
sGET POINTER TO DATE INPUT 


NiO 
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101 021066 
102 021070 


000055 


000003 
000055 


000071 


DAY1: 


DAYe: 


YERI: 


YER2: 


YERS: 


YER4; 


YERS;: 


CMPB (R35),0' - 

BEG DAY2 

-_ (R3),(R1L)>+ ;PUT DAY CHARACTER IN OUTPUT 
L 


; AND YEAR IN OUTPUT 


e 


CMPB (RS),@' - ;CHECK FOR “-" BETWEEN DAY 
) 


. sPUT “-" IN OUTPUT 
sGET COPY OF INPUT STRING POINTER 


ASL RO 


Ze ® 
- 
aS 
rw 
» 
Ve 


3 
on 
ee 


_ 
wn 
o~ 

85 
3 
ed 


a8 
“3 


QaREGRIEGE 
8 


2 
=< 
<<. 
33 
or 
— 
x 
w 


BEQ YERS 
MOVE C(R2)-+ eCR1I de 
BR YER4 

MOVB (RS)+,CRI)D> 
BNE YERS 


ae 


SEQ 01430 


I ee LLL LLL LLL LL OE 


b1i 
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103 
104 021072 —E NDMOD 


a3 


ne 
[a 
~OS & altuer ~ 


od ek 
“PYawure OCG 


= OD 
al 


021072 
021072 


02107e 
021074 
021076 


021100 


* AS oe 
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177777 
177777 
177777 


.SBTTL PROTECTION TABLE 
BGNMOD 
°° 
; THIS TABLE IS USED BY THE RUNTIME SERVICES 


; TO PROTECT THE LOAD MEDIA, 
“aa 


BGNPROT 

LSPROT:: 
mY sOF FSET INTO P-TABLE FOR CSR ADDRES 
-1 SOF F SET INTO P-TABLE FOR MASSBUS ADORE SS 
«1 sOF FSET INTO P-TABLE FOR DRIVE NUMBES 
ENDPROT | 


OD BaP Vb whe 


7 


—- 
wy pe 


r \ : 
re} 
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~SBTTL INITIALIZE SECTION 


3°? 

:; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AT THE BEGINNING OF EACH PASS. 

¥ 


BGNINIT 
LSInIt:: 
READEF O€F .START ;CHECK IF STARTED BY OPERATOR 
012700 000040 MOV @EF START RO 
104447 TRAP CSREFG 
BCOMPLETE INIT1 s IF NOT, 
103415 BCS INIT: 
READEF @&F .RESTART | 
012700 000037 MOV OEF RESTART RO 
104447 TRAP CSREFG 
BCOMPLETE INITI 
103411 BCS INIT1 
READEF @&F .CONTINUE 
012700 000036 MOV @EF _ CONT INCE .RO 
104447 TRAP CSREFG 
BCOMPLETE INITi 
103405 Bcs INIT1 
READEF OE&F .PWR 
012700 000034 MOV OEF PWR RO 
104447 TRAP CSREFG 
BCOMPLETE INIT1 
103401 8csS INITi 
INITQT: DOCLN ; ABORT PROGRAM 
104344 TRAP CSDCLN 
012700 000003 INITI: sBUILD MODE WORD FROM SOFTWARE QUESTIONS 
pr 4 002144 :;SEE IF REFORMAT 


; BRANCH IF SO 
012700 000004 ;SEE IF RECONSTRUCT 


030037 002144 





001004 3; GRANCH IF SO 
006500 IF RESTORE 
SO.STR EQ SO.CNSe2 

030037 002144 
001761 1IF NOT, ABORT PROGRAM 
010037 003206 INIT2: sSAVE MODE FLAGS 
004737 012564 INITS: AL sRESET ALL UNITS 

MEMORY FFREE sRESET START OF FREE MEMORY 
104431 TRAP CSMEM 
010037 002146 MOV RO. FFREE 
017737 160726 002159 MOV @FFREE ,F SIZE sRESET SIZE OF FREE MEMORY 

sINITIALIZE CLOCK 

000105 KWOUT. ©105 ‘eee TO SEND TO KWi1l TO START CLOCK 
005037 003210 CLR KW.CSR MARK CLOCK AS NOT ON SYSTEM 
005037 903220 CLR KW.EL ;CLEAR ELAPSED TIME 
005037 003222 CLR KW,EL +2 


CLOCK L,RO ;SEE IF AN L CLOCK PRESENT 


ee ee ee cBO Er mee ® me en ee ee « - — 


Eid 
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921236 O12700 000114 o'L ho 
021242 104462 cci Cw 

40 021244 BCOMPLETE “YES 
021244 103415 BCS “YES 

43 021246 CLOCK P,RO ;SEE IF A P CLOCK PRESENT 
021246 O12700 000120 M0 0 PRO 
O21252 104462 Cscicr 

44 021254 BCOMPLETE KYES 
021254 103407 8cs KYES 

45 021256 005037 003210 CLR KW.CSR sI1F NEITHER, CLEAR CSR STORAGE WORD 

46 021262 PNTF NOCLOCK 
021262 004137 016226 JSR R1L,LPONTF 
021266 004073 . WORD NOCLOCK 
021270 000000 .WORD PNT.CT 

47 O21272 000426 BR KNO 

48 021274 012037 0035210 KYES: MOV (RO)+,KW.CSR sSTORE DATA RETURNED 

49 021300 012037 003212 MOV (RO)+, KW. BRL 

50 021304 012037 003214 MOV (RO)>, ~o vEC 

51 021310 012037 003216 or (RO)> KW. HZ 
021314 SETVEC KW. vee anui't. KW. BRL ;SET THE VECTOR 
021314 013746 003212 MOV KW. BRL. -(€ SP) 
021320 012746 MOV OKWILI, -(SF) 

1 013746 003214 KW. VEC. -(SP) 

021330 012746 000003 03. -CSP) 
021334 106437 CSsSvEC 
021336 062706 QGOO001L0 010,SP 

53 021342 012777 000195 161640 MOV @KWOUT. .@kW.CSR s;START THE CLOCK 


TUDEDO PDP Li UDA DRV FMTR MACRO VO5S.00 Tuesday 
INITIALIZE 


Oe a0 Vk whe 


10 


021412 


SECTION 


013/37 


005002 


010200 
104442 


103110 


0137035 
005713 
001416 
021013 


002146 002156 


002156 


022076 
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; INITIALIZE CONTROLLER TABLE STORAGE WITH A WORD OF ZEROS 


MOV FFREE,CTABS 
CLR @CTABS 

CLR CTRLRS 

MOV 7 


1$: CLR 


;GET A P-TABLE FROM DRS 


CLR R2 


INIT4: GPHARD R2,RO 


BNCOMPLETE NXTTAB 


sSTORE START OF CONTROLLER TABLES 
;ZEROS MARKS END CONTROLLER TABLES 
;CLEAR CONTROLLER COUNT 

; Ri -» IP ADDRESS 

; R2 IS A COUNTER 
; CLEAR ENTRY 
é 
3 


DONE ? 
IF NOT, BRANCH 


sLOGICAL UNIT NUMBER IN Re 
;GET POINTER TO A P-TABLE 


MOV R2,RO 

TRAP C4GPreRD 
; IGNORE IF NO TABLE RETURNED 

gcc NX TTAB 


;SEE IF A CONTROLLER TABLE ALREADY EXISTS FOR CONTROLLER IN P-TABLE 
MOV CTABS,RS 


INITS: 


18: 





sGET ADORESS OF CONTROLLER TABLES 
;CHECK IF ANY MORE TABLES 

sBUILO NEW TABLE IF FOUND ZERO wORD 
;CHECK IF SAME UNIBUS ADDRESS 


sCHECK TABLE IF ALREADY EXISTS 
;GET VECTOR FROM EXISTING CONTROLLER TABLE 
sSEE IF OIFFERENT VECTOR 


;ERROR, CAN'T HAVE TWO UDA‘S WITH SAME VECTOR 
sMOVE TO NEXT TABLE 


/ yr 
pe, 
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INITIALIZE SECTION 


b ;BUILD A CONTROLLER TABLE 
3 021460 012703 000010 NEWTAB: MOV 08. ,RS 1R35 IS A COUNTER 
4 021464 012704 003456 MOV @IPADRS ,R4 : ;R4 -> IP ADDRESSES 
5S 021470 005714 1$: TST (R4) + FOUND AN OPEN ENTRY‘? 
6 021472 9001404 BEQ A s If SO, GO FILL ENTRY 
?’ 021474 005724 TST (R4)- ; NEXT ENTRY 
8 021476 0053505 DEC R3 3 SEARCH THROUGH ENTIRE TABLE? 
9 021500 001575 BNE 1$ s IF NOT, BRANCH 
10 021502 000401 BR 38 ; ELSE, TABLE FUL 
11 021504 011014 2s: MOV CRO), CR4) ; STORE ENTRY INTO TABLE 
12 021506 012701 000026 38: MOV @C.SIZE/2,R1 sGET WORDS IN CONTROLLER TABLE 
13 021512 004737 012522 CALL ALOCM sALLOCATE SPACE FOR IT 
14 021516 011021 MOV (RO), CR1)> sSTORE UNIBUS ADORESS 
15 021520 010221 MOV R2,(R1)-> sUNIT NUMBER 
16 021522 016004 000004 MOV HO.BRLCRO),R4 sGET BR LEVEL 
1? 021526 000504 SWAB R4 sSWAP TO HIGH BrTE 
18 021530 006104 ROL R4 ;SHIFT ONE MORE TO LEFT 
19 021532 056004 000002 BIS HO.VECCRO),R4 sADD VECTOR ADDRESS 
20 021536 010421 MOV R4,(R1)- ; TO TABLE 
21 021540 016021 000006 MOV HO.BSTCRO),(R1)- 
22 021544 012721 004037 MOV @4037,(R1)> sPUT (JSR RO,UDASRYV) 
23 021550 O12721 017156 MOV @UDASRV,(R1)- ; INTO TABLE 
24 021554 012703 000020 MOV @16.,R3 ;CLEAR POINT’ RS TO DRIVE TABLES, 
25 ; TIMEOUT CCUNTER, FLAGS, REF. NUMBER 
26 021560 005021 INIT7: CLR CR1)> 
27 021562 005503 DEC RS 
26 021564 001575 BNE INIT? sLOOP Tit A.t CLEARED 
29 021566 005257 002160 INC CTRLRS sCOUNT THE CONTROLLER 
30 021572 OOSO11 CLR (R1) sCLEAR TABLE END MARKER 


31 021574 000417 BR NXTTAB ;NOwW GO TO NEXT P-TABLE 


ee anion 


005202 
023702 


012701 
004737 


000001 
012522 


riii 
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;SMOULD BE SAME CONTROLLER, CHECK THAT OTHER PARAMETERS MATCH 


SAMTAB: MOV HO.BRLCRO),R4 
SWAB R4 


ROL R4 
BIS HO. VEC(RO),R4 
CMP R4,C.VECCRS) 


BNE 18 
CMP HO.BSTC(RO),C.BSTC( RS) 
BEG NXTTAB 

1$: JMP CTABER 


;GET NEXT P-TABLE 
NXTTAB: INC R2 
CMP LSUNIT,R2 
BGT INIT4 


MOV 01,R1 
CALL ALOCM 


;GET BR 


LEVEL FROM P-TABLE 

SWAP 

sADC VECTOR ADDRESS 

sCOMPARE WITH CONTROLLER TABLE 
sCOMPARE BURST RATES 

sFATAL ERROR IF NOT SAME 


s INCREMENT LOGICAL UNIT NUMBER 
sCHECK IF GOT ALL TABLES 
sIF NOT, GO BACH FOR NEXT 


sALLOCATE SPACE FOR ZERO END WORD 
sAFTER CONTROLLER TABLES 


9tG 0147 


ZUDEDO POP 
INITIALIZE tecTION 


mtorr 


rh Pe 
wr OwWenwe Y 


005002 


010200 
104442 


103040 


013705 


002156 


000054 


;NOW BUILD DRIVE TABLES 


CLR R2 
GPHARD R2,RO 


INITS: 
BNCOMPLETE INIT14 
;F IND CONTROLLER TABLE 
CTABS,.RS 


BR INIT10 


ee ca: cl ee tl Te I CCEA A! OLE LL! LE LLL LL 


+. 


i 
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OGICAL a NUMBEF IN Ro 
:GET POINTER TO A P-TABLE 


MOV Re, RO 

"be fae CSGPHRD 
sIF NOT AVAILABLE, GO GET NEXT 

Bcc INIT14 


;GET ADDRESS OF CONTROLLER TABLES 
;CHECK IF SAME UNIBUS ADDRESS 

sBRANCH IF TABLE FOUND 

sMOVE TO NEXT TABLE 


Yt “4 91 ho | 


~ + pee e-em 


DO PDP -i1 UDA DRV FMTR MACRO VO5S.00 Tuesda, 24-May 85 


ZUOE 
INITIALIZE SECTION 


O22. Vb wre 


10 


021702 
021706 


021712 


012/701 
004737 


010337 


016021 
010221 


000015 
012522 


003244 
000020 
000010 
000010 
022042 


022060 
000010 


Jil 
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sBUILD DRIVE TABLE 


INITLI1L: 


INITle: 


18%: 


INIT13: 


MOV 
CALL ALOC 
RO POINTS TO P-TABL.E 


iGET ae OF ORIVE 


o0.SIZE/2,R1 TABLE 
ALOCM ALLOCATE SPACE FROM FREE MEMOR» 


Ri POINTS TO DRIVE TABLE 
R3 POINTS TO CONTROLLER TABLE 


R2 IS UNIT NUMBER 
MO 


yY R3, TEMP 3 SAVE obey "Tae ADORE SS 
sIN CASE AN ERROR IS DETECTED 

ADD @C.DRO,RS sBUILD POINTER TO C.OR ENTRY IN CONTROLLER TABLE 
MOV 08. ,R4 ;GET MAX COUNT OF DRIVES ON ONE CONTROLLER 
ane a ; CHECK IF ENTRY CONTAINS POINTER YO DRIVE TABLE 
ae . TDRCRO), OCR): ;CHECK DRIVE NUMBER IN DRIVE TABLE 
JMP MLORER slf SAME, TWO P-TABLES POINT TO SAME ORIVE 
DEC R4 S COUNT ORIVES 
BNE INIT12 vs EIGHT ORIVE TABLES ExIST, 
JMP TOOMER THEN REPORT ERROR 
MOV R1,(R3) ;LOAD RIVE TABLE POINTER 
MOV HO.LDRC(RO),(R1)- sLOAD ORIVE NUMBER 
MOV R2,(R1)> ;.0AD UNIT NUMBER 


A NE we ee 


7UDEDO PDP -11 UDA ORV FMTR MACRO VO5.00 Tuesday 


INITIALIZE SECTION 


MR OOS WON whe 


mee 


005202 
023702 
003331 


013737 
013737 


002012 


002152 
002154 


<1) 
24-May 85 10:10 Page 126 
3G0 10 NEXT DRIVE TABLE 
INIT14: INC R2 is INCREMENT LOGICAL UNIT NUMBER 
CMP LSUNIT,R2 ;CHECK IF GOT ALL TABLES 
BGT INITS vir NOT, GET NEXT TABLE 
;SAVE CURRENT PARAMETERS iC FREE MEMORY 


INIT1S5: MOV FFREE,FMEM sSAVE START ADDRESS 
MOV FSIZE.FMEMS sSAVE SIZE 


INITXX: SETPRI @PRIOO ; SET RUNNING PRIORITY ya 
v 
TRAP 
CALL CLOSEF sMAKE SURE DATA FILE IS CLOSED 
EXIT INIT , 


TRAP 


ee ee te 


OPRIOO ,RO 


CsSPRI 


CSExIT 


i. 10035-. 


9140 


ee ee GE SOs ee = es Ce 


ae 
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INITIALIZE SECTION 


1 ;OIFFERENT VECTORS, BR LEVELS OR BURST RATES FOR ONE CONTROLLER 
2 022026 0103505 CTABER: MOV R3,R5S sGET CONTROLLER ADDRESS 
5 022030 ERRSF 1,,ERROO1 
022030 104454 TRAP CSERSF 
022C32 000001 . WORD i 
022034 WORD 9 
O2203€ 011604 . WORD ERROOL 
4 022040 DOCLN 
. 022040 104444 TRAP CSOCLN 
6 ;TWO P-TABLES FOR SAME DRIVE 
7 022042 013705 003244 MLDRER: MOV TEMP,.RS ;GET CONTROLLER ADDRESS 
8 022046 ERRSF 2, .ERROO? 
@22046 104454 TRAP CSsERSF 
022050 000002 WORD 2 
022052 WORD O 
022054 011622 WORD ERROO? 
9 022056 DOCLN 
7 022056 104444 TRAP CSOCLN 
1 
3 ;MORE THAN EIGHT ORIVES SELECTED ON ONE CONTROLLER 
1 
13 022060 013705 003244 TOOMER: MOV TEMP,RS ;GET CONTROLLER ADDRESS 
14 022064 ERRSF 3,,ERROOS 
022064 104454 TRAP CSERSF 
000003 -WORD 3 
022070 000000 -WORD O 
022072 011640 - WORD ERROOS 
15 022074 DOCLN 
es 022074 104444 TRAP CSOCN 
H ;TWO UDA'S USE THE SAME VECTOR 
i9 022076 010305 SAMVEC: MOV R3,RS ;GET CONTROLLER ADDRESS 
20 022100 ERRSF 8, ERROOS 
022100 104454 TRAP CsERSF 
022102 000010 . WORD 
022104 011670 . WORD ERROOS 
022106 WORD O 
21 022110 DOCLN 
a 022110 104444 TRAP CSOCLN 
23 022112 ENDINIT 
022112 iL. 10035: 


O22112 104411 TRAP CSINIT 


ee | ian woe --2 + 


Mil 
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AUTOOROP SECTION 
: .SBTTL AVTODROP SECTION 
z re 
4 ; THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF 
5 ; THE “ADR” FLAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO 
6 ; SEE IF THEY WILL RESPOND. THOSE THAT DON’T ARE IMMEDIATELY 
: ; DROPPED FROM TESTING. 
ee 
9 
10 022114 BGNAUTO 
‘ 022114 LSAUTO:: 
12 022114 ENDAUTO 
022114 L10036: 
022114 104461 


TRAP 


CSALTO 


St e) 


D142 
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: .SBTTL CLEANUP CODING SECTION 
3 pee | 
4 ; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
5 ; AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 
6 tie 
? 
8 022116 BGNCLN 
‘ 022116 LSCLEAN: ; 
10 022116 004737 0135022 CALL CLOSEF ;CLOSE DATA FILE 
. O22122 004737 012564 CALL RESET ;RESET ALL YOAS 
13 022126 ENOCLN 
022126 10037: , 
022126 104412 TRAP CSCLEAN 


rere 
Ui & 
~v 
w 
pe 
3 


ENOMOD 


— LE TN SS AT RATA tee a 


ZUDEDO POP 


TEST li: 


™ 


SS 


oc Fe aloe 


DUP PROGRAM ORIVER 


2264 
022264 
022266 
022270 


016246 


005244 


000010 


ii UDA ORV FMTR MACRO VO5S.00 Tuesday 


. SBT TL 


TIQUIT: 


003206 1T1G0: 
002012 000001 


TIRST: 


Bi. 
24 May 85 10:10 Page 150 


TEST 1: DUP PROGRAM DRIVER 


BGNMOD 
BGNTST , 
Ls: 
PNTX WNSTRT sPRINT WARNING MESSAGE 
JSR Ri, LPNTx 
. WORD WMS T TR? 
-WORD PNT.CT 
MANUAL ;SEE IF MANUAL INTERVENTION At_L OWED 
TRAP CSMANI 
BNCOMPLETE TIMODE ;IF NOT, JUST RUN THE PROGRAM 
gcc TIMOME 
CLR TEMP ;CLEAR WORD FOR ANSWER 
GMANIL WNQUES, TEMP.1,YES sASK IF STILL WANT TO RUN 
TRAP C SGMAN 
BR 10000 $ 
. WORD Ter? 
. WORD T $CODE 
. WORD S$ 
. WORD i 
100005: 
TST TEMP 3;L00K AT ANSWER 
BEQ TIQUIT ;IF NO, QUIT NOW 
TST DATEO ;SEE IF ALREADY ASKED FOR DATE 
BNE TIMODE 
CALL DATE sIf NOT, GET IT NOw 
BIT @&SO.FMT .MODE 
BNE TIFMT 
TRAP CSMANI 
BCOMPLETE T1GO0 
BcS T™21G0 
ERRSF 10, .ERROILO 
TRAP CSERSF 
. WORD 10 
. WORD Oo 
. WORD ERROLO 
ExIT TST 
TRAP CSExIT 
. WORD L10040-. 
BIT oS tae 
BEQ TICNS 
CHP me oi 
BEQ TIRST 
ERRSF 9, ,ERROOS 
TRAP CsERSF 
. WORD “4 
. WORD 0 
. WORD ERROOD 
EXIT TST 
TRAP CSEXIT 
. WORD L10040.-. 
PNTF FILNAM 


144 


’ 
7 
7 


L 
E 


MED POP ii 


res’ 


) |: 


uP 
022270 


i 
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AM ORIVER 


00415" 
011522 
000000 


v 


Vi62e6 


003232 
177777 
002156 


000020 
000010 


000002 
016226 


003244 


002174 


TICNS: 
TISER1: 


TISER2: 


TLISERS: 


TISER4: 


TLISERS: 


GMANID F IL NAQ,F NAME oA, ‘uke 10. eNO 


OPEN Ff NAME 


MOV @-1,FILOPN ;MARK FLAG AS FILE OPEN 
TIFMT 


SERN ;GET DRIVE TABLE POINTER 
PNTF SERNUM,D.UNITCR2),( RS), CR2) 


C.UADR EQ O 
D.ORV EG O 


sGET FILE NAME 


100015: 


AS 
GMANIO SERNG, TEMP,A,-1,1.20..NO ;GET SERIA: NUMBER 


MOV @TEMP AL 
CLR RO 

TSTB (Ri) 
BEG T1ISERS 
INC RO 

CMPB (R1),0'O 


MOV @HIGHEST,RO 


10002$: 


JGR BL, ,LONTF 


WORD fF ILNAM 
,WORD PNT.C™ 
TRAP C SGMAN 
BR 100015 

. WORD F NAME 

. ¥ORD T $CODE 

. WORD FILNAG 

. WORD “1 

. WORD TSLOLI™ 
. WORD T$rI_Imh 
MOV OF NAME . HO 
TRAP CSOPEN 
MOV (R22). -CSP) 
MOV (RS). -C€SP) 
MOV O.UNIT(R2), -(SP) 
JSR RL, LPONTF 
-.WORD SERNUM 
-.WORD PNT .CT 
TRAP CSGMAN 
BR 10002$ 
. WORD TEMP 
.WORD TSCODE 
. WORD SERNG 

. WORD -1 

. WORD TSLOLIM 
. WORD TSHILIM 


“UOE DO 
TEST i: 


59 


"Rott 


022470 


A DRY FM! 
AM ORIVE 


002162 


TLSERE: 


TISER?: 


TLSERB: 
TLSERS: 


TiSERN: 
T 


TIFMT: 


6%: 


Die 
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TSTB CRO) 
BEQ TISERS 
Ae SF ead 
Q TISERG 
BLO TISERS 
PRINTF OSERNX, OHIGHEST 


BR TISERS 

ADD @0.SERN,R2 
MOV @TEMP,R1 
MOVB (R1)+,CR2)> 
BNE TISERS 


L 
EXIT TST 
ENOTST 


ENDMOD 


sPUT ANSWER INTO ORIVE TABLE 


. 


MOV OHIGHEST, (SF. 
MOV @SERNZ , -( SP) 
MOV ~RO 

TRAP CSPNTF 

ADD 06, SP 


;GET FIRST TABLE ADDRESS 
RUN 


S 
ON ALL CONTROLLERS 
3 RUN ALL CONTROLLERS OF ONE TYPE AT ONCE 


L10040: 


TRAP CsExIt 
-WORD L10040-. 
TRAP CSETST 


ZUDEDO POP -i1 UOA DRV FMTR MACRO VO5S.00 
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Pee? Berne eee ee Baek 


10 


022616 


000027 


Ei? 


luesday 24-May 8% 10:10 Page 151 SEQ 0147 


.SBTTL HARDWARE PARAMETER CODING SECTION 
BGNMOD 


: 
; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
; MACROS ARE NCT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 

j 


BGNHRD 
-WORD 110041 -. SHARD / 2 
L SHARD: : 
sFORMAT OF HAROWARE P-TABLE IS AS FOLLOWS: 
TABLE ;START A TEBLE DEFINITION 
ITEM HO.UBA 2 ; UNIBUS ADDRESS 
ITEM HO. VEC 2 s UDA VECTOR 
ITEM #O.BRL 2 ; BR LEVEL 
ITEM HO.8ST 2 ; BURST RATE 
= HO .LDR 2 ; ORIVE NUMBER 


Fie 
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HARDWARE PARAMETER CODING SECTION 

1 022620 GPRMA H.UBA,HO.UBA,0,160000,177774,1ES sBUS ADDRESS 
022620 000031 WORD T CODE 
022622 022676 . ORD 4, UBA 
022624 160000 } , WORD TSLOLIM 
022626 177774 . WORD TSriLImn 

2 022630 GPRMA H,VEC,.HO.VEC,.0,4,774,1ES ; VECTOR 
022630 001031 . WORD T sCODE 
022632 022724 -WORD oH. VEC 
022634 000004 - WORD TSLOLI™M 
022636 000774 WORD TSrtIL IM 

3 022640 GPRMO 4.BRL.HO.BRL.O,-1,4.,7., ES ; BR LEVEL 
022640 002052 _ WORD T $CODE 
022642 0227535 . WORD 4. BRL 
022644 177777 . WORD -1 
022646 000004 WORD TSLOL IV 
022650 000007 ~ WORD TSHILIM 

4 022652 GPRMD H.8ST,HO.B8ST,.0,-1,0.,635., YES ; BURST RATE 
022652 .- WORD T S$CODE 
022654 022744 -WORD #.85T 
022656 177777 , WORD -1 
022660 . 4ORD 7$L OL IM 
022662 000077 . WORD TSHILIm 

S 022664 GPRMD #H.LOR,.HO.LDOR,D,-1,0.,255.,.YES ; ORIVE SELECT NUMBER 
022664 004052 - WORD TSCODE 
022666 022766 -WORD #.LOR 
022670 177777 - WORD -1 
022672 . WORD TSLOLIM 
022674 000377 . WORD TSHIL IM 

6 022676 ENDHRD 

-EVEN 

. 022676 L10041: 

8 022676 125 116 lll #H.UBA: \UNIBUS ADDRESS OF UDA’. 

9 7 126 105 103 w.VEC: \VEC TORS 

10 027733 102 122 040 H.BRL: .ASCIZ \BR LEVELS 

ll 022744 125 116 lll #.8ST: .ASCIZ \UNIBUS BURST RATE. 

7 022766 104 122 111 4H.LOR: a \ORIVE NUMBERS 


bie 
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SOF TWARE PARAMETER CODING SECTION 


NK OOS. Yh ate 


er 


0235006 


000022 


.SBTTL SOFTWARE PARAMETER CODING SECTION 


THE SOFTWARE PARAMETER CODING SECTION 2 ye MACROS 
TABLES. THE 


THAT ARE USED BY THE SUPERVISOR TO BUILD P 


INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES 
MACROS ALLOW THE SUPERVISOR 10 ESTABLISH COMMUNICATIONS 


WITH THE OPERATOR. 


BGNSF T 


;FORMAT OF SOFTWARE P-TABLE IS AS FOLLOWS: 

sSTART A TABLE DEFINITION 

s YES/NO ANSWERS 
REF ORMA 


TABLE 
ITEM SO.BIT 2 
SO.FM1 = BITO 
SO.FM2 = BITI 
SO.FMT = SO.FMi+SO.FM2 
SO.CNS = BIT2 


SO.STR = BITS 
END 


3° 

; 

i 

; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCT IONS BUT aa 
i 

; 

: 


SEG 9149 


WORD 110042 -LSSOF T/e 


L$SOFT:;:) 


T MODE 
( AGAIN) 


RECONSTRUCT MODE 
RESTORE MODE 


ZUDEDO PDP .11 UDA DRY FMTR MACRO VOS.00 luesday 
SOFTWARE PARAMETER COOING SECTION 


900130 
923225 
000001 


017024 


4 , May 


GPRML 


xFERT 
GPRAL 


XFERT 


XFERT 


DISPLAY S.NOF 


ENDSF T 


BYTE 


-ASCII\NOT USING EXISTING INFORMATION WILL DESTROY THE FACTORY BAD SECTOR. 


-BYTE 1 
BYTE 
I 


HL 2 


BS 10:10 Page 134 
S.FMT,SO.B1T,SO.FM1, YES ; REFORMAT ? 
_ WORD TsCOOt 
. WORD 5.Fm" 
. WORD SO .F M1 
SWE ND 
_ WORD T $CODE 
S.NRF ,SO.BIT,SO.FM2, YES s; AGAIN REF ORMAT ? 
, WORD T $CODE 
WORD S NRF 
. WORD 50 .FM2 
SWE NO 
. 4ORD T $CODE 
S.CNS,S0.8I1,S50.CNS, YES sRECONSTRUCT 
. 4ORD TSCODE 
. WORD S.CNS 
. WORD SO.CNS 
SWEND 
- WORD TS$CODE 
S.RST,.SO.BIT,.SO.STR, YES sRESTORE? 
- WORD TSCODE 
-WORD $.RST 
. WORD $0.STR 
SWEND 
. ORD TSCODE 
; WARNING 
. WORD 7 SCODE 
-WORD S.NOF 
-EVEN 
L 10042: 
15.12 






5.12 
og aie ON THE OISKS.\ 


I\AGAIN - 
"ASCIZ\REFORMAT ‘USING EXISTING BAD hl INF ORMAT ION\ 
.ASCIZ\RECONSTRUCT BAD SECT 
eae YOU HAVE A FILE ON THE SYSTEM LOAD DEVICE. 


OR INFORMATION 


15,12 
“ASCIZ. CONTAINING BAD SECTOR INFORMATION, 


-ASCIZ 


\vYou C T PROCEED WITHOUT SUCH A FILE.\ 


ee PROGRAM AND SELECT TO REFORMAT OR RECONSTRUCT OISK.\ 


EVEN 


.OSABL AMA 
-PSECT ENO 


eo fete eee ee a wevrempue + attew EE RE - ee remee ot So ene ee we 


5 9 9 1 S {fj 
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PATCH AREA 


sw OY whe 


9 
10 000124 


i 


.SBTTL PATCH AREA 
SPATCH: : 


000050 REPT 40. 
.WORD 0 
.ENOR 
LASTAD 

000142’ 

000007 


LS8LAST:: 
ENDMOD 


ee EE ESE RE Fn ee. EEF Meee, 


-EVEN 
-WORD ‘SPREE 
-WORD 'SSIZE 


nn eee em eee ee 


SEG O1%1 


ZUDEDO PDP 11 UDA DRv FMTR MACRO V0O5.00 Iuesday 


PATCH AREA 


wane 


10 
11 000142 


Errors detected: 


eee Assembler statistics 


O@enovb 
: 
® 
é 
¥ 


268 

28936 Words 
: 17152 Words 
RT-11 CUnder RSTS/E) 


Elapsed time: 00:02:44.47 
ZUDE 


( 114 Pages) 
( 67 Pages) 


J i ar 
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BGNSE TUP 
BGNP TAB 


172150 
54 


DO. 0B. ZUDEDO/C+(20,0)SVC34R .MB/P: 1, ZUDEDO.DOC., ZUDEDO 


UNIBUS BURST RATE 
LOGICAL DRIVE NUMBER 


10045: 


42-4 


ta 


i 


) 
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Cross reference table (CREF v05.00) 
SPATCH 135-30 
ADR 


-10@ 
ALOCM 60-16@ 61-14 122-13 123-20 125-4 
ASSEMB 30-8 30-8 
BAS 54-140 87-5 87-5 87-5 68-5 88-5 
BASL2 S4-12e@ 886-5 
BASLS 8654-130 
BASLN 54-160 # 87-5 88-5 
BASNO 54-119 87-5 88 - 
BITO 34-10@ 133-19 
BITOO 34-10 34-100 
BITO1 34-10 34-10¢ 
BITO2 34-10 34-100 
BITOS 54-10 34-100 
BITOS4 34-10 34 -10¢@ 
BITOS 34-10 34-100 
BITO6 34-10 34-100 
BITO7 34-10 54-100 
BITOS 34-10 34-100 
BITO9 34-10 34-100 
6IT1 34-10@ 45-23 133-20 
BIT10 34-10¢ 
BITi1 34-100 
BITi2  34-10¢ 
BIT135 34-100 
BIT1I4 34-100 
BIT1S 34-10@ 45-15 46-12 63-27 66 - 20 74-28 79-15 
BIT2 34-10@ 45-24 #133-22 
BITS 34-10@ 45-25 133-25 
BIT4 34-100 45-27 
BITS 34-108@ 45-30 
BITé 34-10@ 45-31 
BIT7 34-10@ 45-35 
BITS 34-100 
BIT9 34-100 


65-49 66-14 66 -44 99-2 101-1506 


30 -8¢ 62-12 65-8 104-21 111-12 114-27 


CSOCLN 30-80 59-8 62-30 120-168 127-4 127-9 127-15 


30 
CSERDF 30-80 62 -28 65-24 66 - 34 67-21 68 -8 72-22 


93-29 


127-21 


74-32 100-3 104-29 105-5 


we te: 


109-35 109-54 


ener Ses) 0e oe e e 


110-11 


ee ee ee ee 
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111-35 
30-80 
30 -8@ 


SSS 
: 


SESSSSSSSLSSSSSSSSSESSESSSSSS 
SFSTTTT PT IT IT TTT IT TTT Tt st} 


g 


mF ELEP ES t0 
Cys whir © - 
ca 
:t 
BS 


a3y5 


vials 
Nk 
a 
& 
: 


ONOOHHOOO ONONOAIOIoooo 
On 

> 

vi 

‘ 

Lb 

w 

ap 


113-44 


63-23¢ 


6& -50 


114-56 


127-3 


130-22 


130-10 
124-4 


130-19 
57-20 
57-92 

130-32 


130-64 


120-12 


98-20 


123-9 
79-12 


65-10 


68 -62¢ 


68-55 


115-5 


127-6 


130-28 


130-31 


57-24 
57-97 


120-14 


111-27 


125-11 


65-15 
€8-63 


102-17 


121-32 
104-14 


127-14 


130-82 


130-44 


57-28 
57-101 


120-16 


120-52 


130-37 


127-20 


57-32 


57-105 


65-36 
68-70 


101-16 
124-12 
114-22 


Lb 
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130-21 130-27 
57-36 57-40 57-44 57-48 
57-109 57-113 57-117 57-121 
65-43 65-47e 66-126 67-6 
99-i2e 99-136 102-21¢ 104-17 
102-15 109-20 110-3 110-22 
130-74 
114-33 


ee EE ES SEE Re ST eT Oe RTT! 


57-57 57-62 
67-26 68 - 35 
10S-le 

111-20 


57.76 


68 - 596 


SEG 9154 


$7 -80 


68 -40 


M12 
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C.TOH 45-44@ 165-35 104-24 114-50 

C.TOT 45-459 65-29 68-55 98-146 98-156 
C.UADR 45-120 80-16 111-25 121-24 130 -42 
Cc 3-25 
C 


: 65-12 
-VEC 45-160 98-i6€ 111-14 121-2? 123-7 


CALR4 84-6 67-Se 
CALRS 84-7 88 -Se 
CALRE6 84-8 89-40 
CALR7 84-9 90 40 
CALRS 84-10 91-4¢ 
CALRE 84-3 84-4 84-5 86-40 


CLOSEF 64-10@ 126-13 129-10 


CL 68-16 68- 103-16¢ 

CON.A 82-12@ 85-2 

CON.AL 82-13¢ 82-15 

CON.A2 82-17 82-190 

CON.D 82-23e 85-21 

CON.H 82-29@ 85-21 

CON.N 83-9@ 85-21 

CON.N1 83-10@ 83-12 

CON.O 83-30 85-21 

CON.QU 82-3@ 62-7 85-21 

CON.Qx 82-5 82-80 

CON.R 83-17@ 85-21 

CON.R1 83-19 83-230 

Coes: $2 $3. 500 a3.3> 

CPNT 786-18 78-21 80-21 80-23 82-6 82-13 83-10 83-30 87-7 88-7 96-13 98-22 95-5@ 117-27 
contx ‘95-18 "85-15 95-17 95-190 

CR 34-12@ 78-21 80-21 80-23 83-10 87-7 88-7 95-8 


CT. 45-25¢@ 65-15 68 -39 68-62 104-17 105-1 107-19 
CT.REQ@ 45-270 67-6 67-26 68-35 68 -40 68-47 68 - 99-12 ’ 
CT.RN 45-23@ 65-10 99-15 
CT.STA 45-300 65-38 65-46 68-39 68 -62 
CT.TMl 45-31¢@ 65-42 65-43 68-39 68-70 
T.TM2 45-330 68-39 68-63 68-69 
CT.UNT 45-140 
CT.VEC 45-17@ 96-17 111-15 121-28 
CTABER 123-11 127-20 
CTABS SO-12@ 121-3e 121-4 121-20 124-9 130-35 130-77 
CTRLARS SO-13@ 121-Se¢ i122-29¢ 1350-78 
0.0RV 46-90 73-36 60-17 130-43 
0. 46-130 72-17 130-66 


D.UNIT 46-100 66-19 66-25e 79-14 80-15 130-41 


Nie 
= 
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DAS1 118-8 118-130 

DATE 1186-10 118-32 130-15 

DATEL 51-20 118-1 118-e 118-44 
DATEO 51-40 72-26 118-35 130-13 


SEQ 0156 


DAY2 118-47 118-560 

DAYS 51-19 118-4 

DERR 118-4 118-6 118-10 118-12 118-14 118-310 118-59 116-61 118-64 1168 -84 1168-76 1186-90 
DF.ACT 44-219 68-60 

OF LCL 44-240 

GF .NES 44-220 

OF .SA 44-260 

CFPTBL. 32-100 

DIAG 38 - 101-25 

DIAGMC 30-8 30- 

DIVIDE 73-368 93-39 94-7 97-16@ 117-19 117-21 117-25 
OMFRST 44-470 

OMMAIN 44-460 

DMOVRL 44-440 

DMPROG 50-160 96-153 99-3 99-4 99-5 99-6 
OMTMO 44-45@ 96-14 

DMTRLN 44-430 

D@CONT 73-26 73-610 

QNO 73-34 73-620 

OQRF 73-26 73-530 

DQGRSTR 73-27 73-590 

OQUE 73-21 73-220 73-29 

DQUEST 69-4 73-160 


DQVEX 73-19 73-22 73-24 73-25 73-S0@ 73-57 73 -64 


OT.AVL 46-12@ 66-20 66-25 79-15 


é 44-330 
DU.FTL 44-360 
OU.INF 44-34¢ 
OU.QUE 44-320 
OU.SPC 44-378 68-6 
DU.TER 44-350 
OU.TYP 44-390 68-4 68-19 
DUP 38-34@ 101-20 
E SEND 30 -6@ 

ESLOAD 30-80 30-34 
EF GBR 41-270 
EF .6BU 41-280 
EF .CON 34-100 120-14 


ees — —<— | —-~— 


Croes reference table (CREF vOS.00) 


F SHARD 
F $rtw 
FSInIt 


120-1le 


120-10 
127-5 


111-33 


95-14 
86-4 


95-16 


95-18 


b | 
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57-22 

57-94 
126-14 
is4-9 


30-8 

57-16 

57-88 
126-14 
150-84 


134-8 


a 
, 


> 


57-30 

57-108 
129-6 
135-10 


30-6 

57-24 

57-97 
128-12 
i32-6 


57-34 57-36 
S7-107 57-112 
129-15 130-5 
136-1 136-53 
30-8 30-8 
57-28 57-32 
57-101 57-105 
129-13 129-i5 
134-10 135-10 


57-42 

57-115 
130-5 
136-3 


30-8 

S7-36 

57-109 
130-53 
136-1 


57-46 
57-119 
130-22 


136-1 


30-8 

57-40 

57-113 
130-5 
136-5 


57-50 
106-10 
130-28 
136-15 


350-8 

57-44 

57-117 
130-5 
136-11 


~ A 
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Cross reference table (CREF v05.00) 

F S$ UMP 30 - 80 126-14 130-22 130-26 13¢ -82 

F sM00 30 -8@ 80 - 26 33-14 34-3 118-104 119-3 129-15 150-5 130 -84 131-3 155-10 , 

© $MSG 30 -8@ 57-14 57-36 57-18 §7-2U 57-22 57-24 57-26 5? 26 57-40 §7 32 “7.34 =7 % 57-35 
57-40 57-42 57-44 57 -46 57-48 57-50 57-57 57-59 57-62 57-64 57 76 57-76 ©7.a0 57-82 
57-84 57 -86 57-88 57-90 57-92 57-94 57-97 57.99 57-101 ©,7-103 57-105 $7-167 57-109 %$7-111 
57-115 57-115 57-117 57-119 57-121 

FSPROT 30-80 119-10 119-16 

F $PwR 30 -8@ 

FSRPT 30 -8e 

FSSEG 30 - 80 

FSSOFT 30-8¢ 133-12 134-2 134-4 134-6 134-8 134-10 

FsSRv 30 -80 106-10 106-14 107-18 107-21 116-5 116-9 

Fssus 30 - 80 

F SSW 30 -8@ 33-10 33-14 

FSTEST 30-80 130-5 130-83 

FCTBWF 50-240 77-23 77-32 

FCTNUM 50-25@ 63-366 77-14 77-2le 77-280 

FDATA 50 -23¢ 

FFREE 50 -8@ 57-65 60-16 60-202 120-32e 120-553 121-5 126-9 

FILNAM S6-13@ 1530-30 

FILNAQ 53-40 130-31 

FILOPN 50-20@ 64-10 64-132 130-33¢ 

MEM 50-10@ 126-9¢ 

MEMS 50-11¢@ 126-10 

FMERR 59-7e 60-18 

FNAME 50 - 39e 77-20 130-31 130-32 

FSIZE 50 -9¢e 60-17e 120-832 126-10 

GSCNTO 30-8¢e 

GSDOELM 30-8¢@ 

GSOISP 30-8¢@ 134-9 

GSExcP 30-8¢e 

GSHILI 30-6¢ 

ia ae ison ine-4e 

. 130- 130- 
GSOFFS 30-8¢e 118-1 130-10 130-31 130-44 132-1 132-2 132-5 132-4 132-5 134-1 134-3 134-5 134-7 
GSOFSI 30-66 116-1 130-10 130-31 130-44 132-1 132-2 132-3 132-4 132-5 134-1 134-3 134-5 134-7 
SPRMA 30-86 132-1 132-2 

GSPRMD 30-8¢e 118-1 130-31 130-44 132-3 132-4 132-5 

GSsPRI 64550 -8e 130-10 134-1 134-5 134-5 134-7 

GSRADA 30-86 118-1 130-31 130-44 

GSRADB 30-6¢e 

GSRADD 30-8¢@ 132-3 132-4 152-5 

GSRADL 350-80 130-10 134-1 134-3 134-5 134-7 

GSRADO 30-8¢@ 132-1 132-2 

GSxFER 30-8¢@ 134-2 134-4 134-6 134-8 

GSYEsS 30 -8@ 118-1 130-10 132-1 132-2 132-5 132-4 132-5 134-1 134-3 134-5 134-7 

GETCON 92-16 92-18 92- 

GETCNT 82-12 63-9 63-17 83-29 92-130 93-15 

GETCNX 92-1506 92-27 

GETCXx 92-29 92-31¢ 

TORVL 79-13¢ 79-16 

GTORVT 72-16 73-16 74-24 74-%6 79-110 

~.6RL 132-5 132-10¢ 

4.85’ 132-4 132-110 

H.LOR 132-5 132-120 

H.UBA 132-1 132-80 


-_ onw -eo ow —— 


, 


iJ ji 
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Pe. 
a 


EEE itch 

“ah <x ~~ 

seseceessesesess 
3 


sags 


“RRs 3 


eens AAAARAAAAAAA 


53 


g54335 
a |, 


| oo ome] 
- oe 
é 
por 
© 


ae 


ISInIi 
I s™00 


gi 


i 


-e 


SSS 
seve 


74-150 
74-360 
74-320 


109-21 
102-186 


57-127 


38-18 
38-24 
38-20 


80-150 
130-64 
131-220 
131-230 
131-240 
132-1 
123-6 


128 -12¢ 
129-130 


57-117¢ 


136-30 


136-10 
134-100 
106-140 


130-S¢ 


75-14 


127-2350 
33-16 

131-3 
57-160 
57-460 
57-900 


57-1198 


136-11 


136-5 


107-186 


130-22 


76-14 


57-920 


57-121¢ 


136-1190 


136-15 
107-21¢ 
130-28 


103-21 


99 -4e 


67-19 
111-21 


132-5 
132-4 
132-5 


132-2 


34-3 
135-10 
57-220 
57-S0e 
57-940 


136-15¢ 
116-S¢e 
130-62 


99 Se 


66-11 


132-2 


oh, 


34 -3¢e 


135-100 


sae 
388 


116-90 
150-83 


99 -6¢ 


68 -58 


116-104 
57-260 


57-590 
57-990 


130-830 


101 29¢ 


68 -60 


102-17e 


68 -65 


118-104@ 119-5 


57-260 
57-620 


57-1010 57-103e@ 57-105¢@ 57-107@ 57-1090 


130-83¢ 


57-300 
57-640 


105-186 


68-67 


119-3¢ 


57-320 
57-76¢@ 


104%. 196 


129-15 


57-34¢e 
57-78¢e 


110-26 


129-15¢ 


57-360 
57-800 


99-10 


i30-3 


57-38¢e 
57-820 
57-1119 


t 


. 
« 


2 
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INF Ort 
INF OP 


. 
ao 


SESSSSSESESSSSSSSESSSESSS ARSE 


74-20 
74-22 


SEBSSy 
Ess 


att 


ESEEELE SEES EE ES 
se ese 


ee ec: 3° 


sans 


See ee eeyy 


eescocsec © 


74-2490 
74-270 
74-41 


52-120 


131-14 


120-15 


120 - 300 


121-6 


120-52 
80-19 
65 - 56 


117-18 
120 -Se 


120-53 


120-48¢ 


151-140 


120-17 120 -200 

122-4 

104-22 114-28 116-d¢ 
104-24 104-27 108 - 26 
120-Sle 


117-13 
108-27 


120-386 
198-28 


120 -45«¢ 
114-30 


- a a 


120-4686 
114-33 


ee 


120-536 
116-66 


——— 


116-/7«e 


117-16 


117-17 


' 
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— SHIME -34@ 
L SHPCF -740 
LSHPTe -340 
32-10 32-100 
120-80 
135-80 136-13 


63-246 65 -l2e 79-14 


See 
os ® 


119-100 


133-12 1535-120 


33-10 33-100 


SSSSLSSSS SESS eeresss 
©O% 8688 88% 20288 


60-13 123-16 126-4 130-25 
-10 32-178 
L10001 33-10 33-140 


: 
Keesessssssssssssssssssssss 


L10035 126-14 127-230 
L10036 128-120 
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MD. CWB 


2323 


§3533d3533533338883 
bbagyEGRAsE 


EET 


) 


129-130 

130-22 130-28 130-8? 130-830 
131-14 132-60 

133-12 134-10¢ 

136-30 

136-3 136-11¢ 

63-22¢e 63-34 

63-26 63-30 63-320 

63-29 66 - 30 98-130 

99-11 100-30 

98-23 99-9 190-40 

34-100 3 

38-320 

54-100 

74-40 96 -6 -6 96-10 96-120 117-24 117-28 117-33 
57-15 57-19 57-23 57-27 57-31 57-35 57-39 57-43 57-47 57-56 57-61 
aby lf 57-87 57-91 57-95 57-108 57-112 57-116 57-120 57-123 57-129 

- 96-70 
80-15 81-41 83-23 86-4 96 -5¢ 118-31 120-46 139-30 130-41 
96-11¢ 
-9@ 130-6 

41-4@ 

41-220 

41-6¢ 

41-5¢ 

41-160 

41 -20¢ 

41-18¢e 

41-23¢ 

41-190 

41-7¢@ 

41-80 

21-90 

41.140 

41-100 

41-15¢e 

41-11¢ 

41-210 

41-17¢ 

41-120 

41-13¢ 

74-27 74-39 78-130 

54 -90 80-15 
125-17 127-7¢ 

50-260 73-53 73-59 120-302e 130-17 130-23 
118-17¢@ i8-30 

118-19 118-21¢ 
118-22 118-240 

118-25 118-270 

118-268 118-330 

116-36 1186-390 

51-7¢ 116-16 

38-310 

57-140¢@ 57-145 

57-96 57-1360 

81-38 81-430 


ee omer — - a Ot eee eres 
- ee ee ETS! EEE Ee ete mae « “ —— os 


57-65 


«57-11% 


57-69 
57-140 


cr “4 
a 1462 


57-75 
87-5 
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oP 
OP . ACC 


SAVVSLVLVSLSSSSLSSSSVSSSSESSE 
wi io hI Lt tht tt it 


fi 


EEE 


VVVVVIVVIVY 


I 


Nessecescosaar 


ro pe 
$s 


Setek 


SESSSSSSESSESSSSSSSSSSSSSSSSSSSESESESENE 
Seee SegFzFsEesF* 


va oe 
38 


81-35 


67-5 
99-1 


65-468 


101-21 


SEQ 014% 


Ets 
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P CYL 43-260 

P DEXT 43-520 

P.DOFLG 43-538 68 -©0 

P.OMDT 42-500 

P DPI 43-54¢@ 68 -65 68 -67 68-72 68.753 


P .GRP 
P.HSTI 42-310 43-199 43-350 


P.LBN 42-240 
P.MEDI 43-210 43-370 
P.MLUN 43-170 43-330 
P.MOD 42- 
P.OPCD 42-19@ 43-60 67-9 68-58 101-29e 
P.OTRF 42-27¢@ 43-130 
P.OVRL 42-518 99-5e 99-6 
P.RBN 42-3680 
P.RBNS 43-280 
P.RCTC 43-29¢ 
P.RCTS 43-27¢ 
P.RGID 42-466 
P.RGOF 42-470 
P.SHST 43-230 43-399 
P.SHUN 42-330 43-22@ 43-380 
P.STS 43-8¢@ 67-14 99-10 
P.TIME 42-43¢ 
P.TRCK 43-240 
P.UADR 42-230 99-36 103-18¢ 
P.UNCL 43-400 
P.UNFL 42-306 43-180 43-340 
P.UNIT 42-180 43-S¢@ 
P.UNSZ 43-41¢ 
P.UNTI 43-200 43-360 
P.USEF 42-420 
P.VRSR 42-398 43-456 
P.VSER 43-420 
PB 95-140 %-7 
iste 50-36 95-12¢@ %-5 
T 34-10¢ 
PNT.CT 57-15 57-15 $7-15@ 57-15@ 57-19 57-19 $7-196@ 57-19¢@ 57-23 57-23 57-23e 57-23@ 57-27 S7-27¢ 


57-31 57-31 57-31¢@ 57-31¢@ 57-35 57-35@ 57-59 $7-39@ 57-43 57-43 57-43 $7-43e@ 57-430 57-4350 


88-5 86-5 88-5 88 ° 88 -Se 88 -Se 88 -5@ 88 -Se 88 -Se 
117-24 117-24 117-24@ 117-24@ 117-28 117-28 117-26¢@ 117-260 117-33 117-33 117-33@ 117-33@ 118-351 118-31¢ 
120-46 120-46@ 130-6 130-60 130-30 130-300 150-41 130-41 130-41 iv0-41 130-410 130-412 130-41¢@ 130-41¢ 
PNTMAM 62-24 82-50 83-4 93-140 


ch mea NN TE ET LO OO LLC LLL AL ALLE CLL LLL LLL LLL 


JLo 
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PNIPKL 57-129@ 57-135 
PNTPKT 57-100 57-104 5?-1230 


PRI 34-100 
PRIOO 34-10@ 126-12 
PRIO}L 34-100 
PRIO2 34-100 
PRIOS 34-100 
PRIOS 34-100 
PRIOS 34-100 
PRIO6 34-100 
PRIO? 30-34 34-10@ 62-11 98-20 111-27 
PS 95-16¢@ %6-i1 
PTYPE 50-360 87-8¢ 88 -8e 95-11 96 -Se 96-7 96 - 9s 96-lie¢ 
PX 87-8 88-8 95-16¢@ %-9 
QUEO 72-19 72-260 
Que? 72-21 72-270 
QUEL 72-26¢ 72-30 
QUEST 69-53 72-160 
RESET 62-90 120-31 129-11 
RESPCT 65-8¢ 66-4 66-7 66-31 
RESPDM 65-6¢ 65-8 130-81 
RG.FLG 386-40 66-74 102-18 
, 38-30 €5-50 68-74 102-18 102-19 
RNTIN S4-S@ 117-24 
RANTIMi 54-6@ # 117-28 
RNTIM2 S4-7@ 117-33 
RNTIME 860-22 87-6 88 -6 117-130 


65-25 66-12@ 66-57 67-22 68-9 68-27 


RSPNTO 65-30 65-32 65-35 65-37 65 -53¢ 
RSPNXT 65-11 66 - 30 66 -35 68-57 68-75 


RSPOUT 65-17 67-27 68-34 68 - 398 

RSPPT2 68-50 

RSPPTS 68-7 68-110 

RSPPTW 67-20 67-260 

RSPTM 65-25 65 - 290 

RSP 65-34 65 - 38¢ 

RSPTOE 65-39 65-41 66-360 668-61 68-76 


RUNDM 

SSLSYM 30-80 32-17@ 33-140 57-160 57-200 57-240 57-28@ 57-320 57-360 57-400 57-440 57-48@ S7-S7@ 57-620 
57-760 57-800 57-840 57-88@ 57-920 57-97@ 57-1010 57-105@ 57-1090 57-113@ 57-117@ 57-121 106-14@ 107-2i¢ 
116-9@ 116-1 118-1 118-1 118-16 127-230 128-12@ 129-13@ 130-10 130-10 130-10 130-106 1530-51 130-31 
130-31 130-316 130-44 130-44 130-44 130-440 1350-83@ 132-62 154-100 


i 
-NOF 134-9 134-230 


K13 
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eoeeeeryy 
ae szzag 


SSSESS' 
RASTA 
eYUeieeseeese esis 
: 


Hah 


134-3 


36-260 


Bgssvseye 


roy 
8 

etobat dob P wl 
SEDSERSE 


134-120 
134-200 


114-19 


113-386 


113-14 


113-36 


114-23 
120-28 


134-1 134-3 134-3 134-3 134-5 
134-5 


133-210 


133-25¢@ 134-7 


9146 


a 
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Cross reference table (CREF v05.00) 


SALVYSAEL SSSSSSSFHFLSFr_SAVALTOVALALLARE 
SRRRAHANA SQSSLSSSSIBAARIVIS Oo SRALKKLEKRR 


ISoNBIRio SARISSFSSSLVSr AAR OVARANALK 
SSRRRARAR SOSSSSSSSSMansgggsyssrsreonnnse 


SASLRIFAQ_TAFSASASHSIVE- SASL OVALAAALAKA 
GHAR SRBSRSASSRBRAABIIISSBNELKAASS SE 


ISSISIISHFLLYr ARBABINAKAAALLE 
nr 
Oren 


© 
SRQRARABA SSSSSSSSSSANRARIVISSSLAAG 


95-12 
95-1 
95-1 
95-1 
95-1 
98 


SASLBFFSI_FSFSSHASSSVLFVOANSARGNAR IAS LAAE 
SASRERAAS SSRSSSSBSRBRTRABBISSSLELOKSESS 


SISLIRSIv SISSIAISIF 0 29 LO VABARTOARAITE 2 
SSSERRAAL SSBSSLSSSBATDBRISISSSSLALERESSS 


SIRLRSLL_ISSSISIHIF 9 BE An DURA VeAVNAELZ 


dekiak $ohde 
a 


BSBERRARS SRBSSBRBBSAQ BAIIISSSSEAERRESS 


SSSLSASEL_ SATSISTHIST 9 VG Ae AVRABTONVOAVELALE 
SBSERARKS SBSSSSRBRBBRRAIVISSSSLELEKERES 


SSSABRLSE_ ISISBFSBAFO WSS AVAL TON 
SSSERRAAR SSBSSSSSBRBAABAIIVS3S3 
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SAAS SASS ASSIA GH BN ORNOABANA AAS 
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98-20 100-3 100-3 100-3 100-3 100-3 100-3 100-3 100 100-3 100-3 100-3 100-3 104-21 
104-21 104-21 104-29 104-29 104-29 104-29 104-29 104-29 104-29 104-29 1046-79 104-29 104-29 104-29 
105-5 105-5 105-5 105-5 105-5 105-5 105-5 105-5 105-5 105-5 105-5 105-5 106-14 106-14 
106-14 107-21 107-21 107-21 109-35 109-35 109-35 109-35 109-35 109-35 109-35 109-35 109-35 109-35 
109-35 109-35 109-54 109-54 109-54 109-54 109-54 109-54 109-54 109-54 109-54 109-54 109-54 109-54 
110-11 110-11 220-12 120-11 110-11 110-11 120-11 110-11 110-11 110-11 110-11 110-11 211-12 111-12 
111-12 211-27 21-27 L1i-27? Lll-27 Lll-27 111-27 111-27 i11-27 111-27 211-27 111-27 1141-27 111-27 
L1l-27 11-27 11-27 LlL-27 111-27 111-30 = 111- 411-30 111-30 111-30 111-30 111-33 211-33 111-33 
111-33 111-33 111-33 113-33 211-33 111-33 111-33 211-33 111-33 113-44 113-44 113-44 113-44 113-44 
113-44 118-44 113-44 113-44 113-44 113-44 113-44 114-27 114-27 114-27 114-36 114-3% 114-3% 114-% 
114-36 114-36 114-36 114-36 114-36 114-36 114-36 114-36 115-5 115-5 115-5 115-5 115-5 115-5 

115-5 115-5 115-5 115-5 115-5 115-5 116-9 116-9 116-9 118-1 118-1 118-1 118-1 118-i 

118-1 118-1 118-1 118-1 118-1 118-1 118-1 118-1 116-1 116-1 116-1 118-1 118-1 118-1 

118-1 118- 118-1 118-1 118-1 126-10 120-10 120-10 120-10 120-10 120-10 120-11 120-11 120-11 
120-12 120-12 120-12 120-12 120-12 120-12 120-13 120-13 120-13 120-14 120-14 120-14 120-14 120-14 
120-14 120-15 120-15 120-15 120-16 120-16 120-16 120-16 120-16 120-16 120-17 120-17 120-i7 120-18 


127-14 127-146 127-14 127-14 127-15 127-15 127-15 127-20 -20 127-20 127-20 127-20 127-20 127-20 
127-20 127-20 127-20 127-23 127-20 127-21 127-21 127-21 127-23 127-23 127-25 -12 128-12 128-12 
129-13 129-13 129-13 1350-? 130-7 130-7 30-8 130-6 130-8 130-10 130-10 139-10 130-10 130-10 


132-1 132-1 132-1 132-1 132-1 132-1 132-1 i32-1 132-1 132-1 132-1 132-2 132-2 132-2 
1352-2 132-2 132-2 132-2 132-2 i32-2 132-2 132-2 132-2 132-5 i32-3 132-3 132-3 132-5 
132-3 132-3 132-3 132-3 132-3 132-3 132-3 i32-5 132-5 132-3 132-4 i32-4 132-4 132-4 
i32-4 132-4 132-4 132-4 132-4 132-4 132-4 132-4 132-4 132-4 132-4 132-5 i32-5 132-5 
132-5 132-5 132-5 132-5 132-5 132-5 132-5 132-5 132-5 132-5 132-5 132-5 132-6 132-6 
132-6 133-12 133-12 135-12 i34-1 134-1 134-1 134-1 134-i 134-1 134-1 134-1 134-1 134-2 
134-2 134-2 134-3 134-3 134-3 134-3 134-3 134-3 134-3 134-3 134-53 134-4 134-4 134-4 
134-5 134-5 134-5 134-5 134-5 134-5 134-5 134-5 134-5 134-6 134-6 134-6 134-7 134-7 
134-7 134-7 134-7 134-7 134-7 iM-7 134-7 134-8 134-6 134-8 is4-9 1%-9 isM-9 iM-9 
134-9 14-9 134-10 134-10 134-10 135-8 135-8 135-8 135-8 135-8 135-8 i35-8 135-8 135-8 
136-53 136-3 136-3 136-3 136-5 136-3 

SVCSUB 30-80 30-120 57-100 586-3¢ 

SVCTAG 30-86 30-140 32-17 33-14 S7-12@ 57-16 57-16 57-16 57-20 57-20 57-20 57-24 57-24 57-24 


57-117 57-121 S7-121 57-121 58-5@ 106-14 107-21 116-9 118-1 127-23 128-12 129-13 130-10 130-31 


RS 8 a ———ome eas ee ee EE . 
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SvCTST 


TSLSYM 


T$L TNO 
TSNEST 


30-80 


30-110 
134-4 


57-90 
134-6 


116-1¢ 
130-31 


136-1 
130-31 


32-17 
57-60 
127-23 


30-26 
33-14 
57-16 
57-24 
57-32 
57-40 


58-2¢ 
134-8 


37-20 
57-48 
57-92 
57-121 


130-310 
126-140 


118-16 
130-31¢ 


130-5 
134-106 


57-220 
57-500 
57-940 


57-260 
57-590 
57-990 


‘ 
& 


ceteiass 
Ve eSons 


132-1¢ 
130-220 


130-44 
132-1¢ 


132-10 


57-28 
57-101 
134-10 


32-17 
33-160 
57-20 
57-28 
57-36 
57-44 


57-300 
57-6490 


57-32 
57-76 


57-1030 57-105 


57-340 57-36 
57-780 57-80 
57-107@ %7-109 


30 - 34 30-340 
95-14 95-140 
130-64 130-64 
130-100 130-100 
132-1 132-1 
132-3 132-36 
132-5@ 132-50 
134-2¢ 134-26 
134-4 134-4 
134-6 134-6 
134-6 134-8 
67-210 68-5 
109-35@ 109-54 
127-3@ 127-8 
132-3 132-30 
130-286 130-260 
132-3 132-3¢ 
132-3 132-30 
57-40 57-44 
S7-1153 S?-117 
32-17@ 33-10 
34-30 $7-14 
57-20@ 57-22 
57-280 57-30 
57-360 57-368 
57-440 57-46 


aa ee eal —_—_-— —<-——- 


SEG 0149 
57-360 57-40 
57-820 57-84 
57-1110 S7-113 
3-349 3-340 
95-140 995-16 
130-640 130-646 
130-31 130-31 
132-1 132-1¢ 
132-38 132-30 
134-1 134-1 
134-20 134-2¢ 
134-40 134-4¢ 
134-6 134-6 
134-8 134-6 
68-80 72-22 
109-548 110-11 
127-88 i27-14 
132-4 132-40 
130-82 130-82 
132-4 132-4¢ 
132-4 132-4¢ 
$7-48 $7-57 
57-121 106-14 
33-10 33-106 
57-14 57-146 
57-22 57-220 
57-30 $7-300 
57-38 57-380 
57-46 57 -462e 


— teas 
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57-48 57-48 57-48 57-460 57-50 57-50 57-S0e@ 57-57 57-57 57-57 57-57e@ $7-59 57-59 
?-62 57-62 57-62 57-62@ 57-64 57-64 57-640 57-76 57-76 57-76 57-76e 57.78 57-78 
57-80 57-80 57-80 57-80@ 57-82 57-82 57-820 57-64 57.84 57-64 57-640 ‘%/7-86 57-86 
57-88 57-86 57-86 57-8680 57-90 57-90 57-900 57-92 57-92 57-92 57-920 57-94 57-94 
7-97 57-97 57-97 57-97@ 57-99 57-99 57-990 57-101 57-101 $7-101 57-101@ S7-105 %7-103 
57-105 57-105 57-105 57-105@ 57-107 57-107 57-107@ 57-109 57-109 57-109 57-1090 S7-111 57-111 


S7-112 57-113 57-113 57-118@ 57-115 57-1235 57-115@ 57-117 37-117 S7-31137 S7-117@ S7-119 97-119 
$7-121 57-121 57-121 57-121@ 106-10 106-10 106-100 106-14 106-14 106-14 106-140 107-18 107-18 
107-21 107-21 107-21 107-21@ 116-5 116-5 116-S¢@ 116-9 116-9 116-9 116-9@ 118-104 118-1046 
118-104@ 119-5 119-5 119-3@ 119-10 119-10 119-10@ 119-16 119-16 119-16 119-16@ 120-8 120-8 
127-23 127-23 127-23 127-23@ 128-10 1268-10 126-10@ 128-12 128-12 128-12 i28-12@ 129-6 129-8 
129-13 129-15 129-13 129-13@ 129-15 129-15 129-15 129-15¢@ 150-3 150-53 130-3e@ 130-5 130-5 
130-83 130-385 130-853 130-83e@ 130-84 130 -84 130-64 130-84@ 151-5 131-5 1351-30 131-14 131-14 
132-6 132-6 132-6 132-6@ 133-12 133-i2 133-12¢@ 134-2 134-4 154-6 134-8 134-10 1534-10 


T8NSO 30-260 33-16 34 -3¢ 116-104 119-50 129-15 130-50 130-64 131-5e@ 1355-10 

TSNS1 32-10@ 532-17 33-10@ 335-14 S$7-14@ 57-16 57-16¢@ 57-20 57-220 57-24 57-260 57-28 57-300 
57-34e@ 57-36 57-38e@ 57-40 57-420 57-44 57-460 57-46 57-S0e@ 57-57 57-S$9e@ 57-62 57 -640 
57-78e 57-80 57-62¢ 57-64 57-860 57-86 57-90@ 57-92 57-940 57-97 57-990 57-101 7-103¢ 
57-107@ 57-109 57-111¢@ 57-115 7-115@ 57-117 57-119@ 57-121 106-10@ 106-14 107-188 107-21 i16-5¢ 
119-10@ 119-16 120-8@ 127-25 128-10@ 128-12 129 -8¢@ 129-153 130 -5¢@ 150-83 131-148 152-6 133-120 


TSPTAB 136-3 136-S5¢e 

TsPTey 30-34 136-130 

TSPTNMU 30-8¢ 134-3 136-30 136-13 136-15 

TSSAVL 30-8¢@ 

TSSEGL «6—30-68@ 

TSSIZE 135-8 136-130 

TSSUBN 30-8¢@ 130-Se 

TSTAGL 6 30-8e 

TSTAGN 30-80 32 -10 32-10 32-100 33-10 33-10 33-100 57-14 57-14 57-146 57-18 57-18 57-18¢ 
57-22 57-220@ 57-26 57-26 57-26¢@ 57-30 57-30 57-300 57-34 57-34 S$7-340e 57-38 57-386 
57-42 57-42 $7-42@ 57-46 57-46 57-46@ 57-50 57-50 57-S0e 57-59 57-59 57-S$9¢ 57-64 


57-640 57-78 57-76  57-78@ 57-82 57-82 57-82@ 57-86 57-86 57-860 57-90 57-90 57-900 
57-94 57-94¢@ 57-99 57-99 57-99¢@ 57-103 57-103 57-103@ 57-107 57-107 5S7-107@ S7-1i11 57-111 
S7-115 57-115 57-115@ 57-119 57-119 57-119@ 106-10 106-10 106-10@ 107-168 107-18 107-18@ 116-5 
116-S@ 119-10 11¢-10 119-10@ 120-6 120-8 120-8@ 128-10 128-10 128-108 129-6 129-5 129-680 
130-5 130-S@® 131-14 131-14 131-24@ 133-12 133-12 133-120 136-1 136-1 13%6-1e@ 136-5 136-3 


"STEMP 31-9 31-9 31-90 31-90 32-17 32-17@ 33-14 33-14e@ 33-16 33-160 57-16 $7-16@ 57-20 
57-24 57-240 57-28 57-260 57-32 5$7-32e 57-% 57-360 57-40 57-409 57-44 57-440 57-48 
57-57 $7-S7@ 57-62 57-62@ 57-76 57-760 57-80 57-800 57-84 57-64e@ 57-86 57-86¢@ 57-92 
57-97 57-97@ 57-101 %$7-101e 57-105 57-105e 57-109 57-109@ 57-1135 57-113@ S?-117 S?-1178 5S?-lel 
106-14 106-14@ 107-21 107-21@ 116-9 116-9@ 118-1 116-1 118-1 1i6-1@ 118-1@ 118-1@ 118-104 
119-16 119-16@ 126-14 126-14@ 127-23 127-23@ 128-12 128-12@ 129-13 129-13@ 129-15 129-15@ 150-10 


135-10 135-100 
TSTES? 30-8@ 130-5 130- 
TSTSTM 30-8@ 57-16 © 57-20 57-24 «= 57-28 57-32, 57-36. 57-40, 5S 


84 57-48 57-5? 57-62 57-76 
57-84 57-88 57-92 57-97 57-101 $7-105 57-109 57-115 


? 
7-117 S?-121 39-7 59-8 62-11 


ee ee eee + oe 
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62 -ee 62-28 be - 30 64-12 65-8 65-24 66 - 56 67-21 68 -6 l2-ée 74-52 17.49 17-20 17.26 
95-1le 95-14 95-14 95-18 98-20 100-5 104-21 104-29 105-5 109-35 109-54 110-13 111-12 i11-27 
111-30 111-33 113-44 114-27 114-56 115-5 116-1 120-10 120 12 120-14 120 16 120-18 420 52 120-4} 
120-43 120 -Se 121-15 124-4 le6-le 126-14 127-3 127-4 127-6 l2’7-9 iz7.14 127-15 127-20 i2?-21 
12’-23 126-12 129-15 130-7 130-10 136-19 130-21 140-22 130-27 130-28 130-31 130. 32 150-44 120 64 


TSTSTS 30-8¢ 150-Se 
ue ' 31-9 130-5¢ 
TICNS 130-24 130 -35¢ 
TIFMT 6130-18 130-34 130-770 
T1GO 130-20 130-230 
TIMOOE 150-8 130-14 130-170 


TISER® 130-56 130-60 130-63 130-660 


TEMP S1-1@ 125-9¢ 127-7 127-13 130-9e 130-10 130-11 150-44 130-45 130-57 130-67 


TINDEX 45-10@ 45-12 45-12 45-12@ 45-15 45-13 45-13¢e 45-16 45-16 45-160 45-19 45-19 45-19e@ 45-20 
45-20 4S-20@ 45-21 45-21 45-210 45-22 45-22 45-220 45-34 45-34 45-3440 45-35 45-35 45-359 
45-3 45-36 45-360 45-37 45-37 45-37¢@ 45-38 45-38 45-360 45-539 45-39 45-390 45-40 45-40 
45-40@ 45-41 45-41 45-410 45-42 45-42 45-420 45-43 45-45 45-430 45-44 45-44 45-440 45-45 
45-45 45-45¢@ 45-46 45-46 45-460 45-47 45-47 45-47@ 45-49 46-70 46-9 46-9 46-90 46-10 
46-10 46-10@ 46-15 46-15 46-13@ 46-15 131-16@- 131-20 131-20 131-20@ 131-2i 1351-21 131-219 131-22 
131-22 131-22@ 131-23 131-25 13i-23¢@ i351-24 131-24 131-240 133-160 133-16 135-18 133-160 


TSTTAB SO-140 63-21 65-6 130-77e 

VAM 34-100 

UCNT 50-190 63-200 635-33e 65-7¢ 66 -6¢ 
UOAFM 50-15 30-16 

DAIIA 109-32e@ 109-38 

UDATIB 109-34 109-376 

VDATIC 109-33 109-390 

VDATID 109-51 109-540 

VUDATIL 109-220 109-24 

UDA 109-53 110-3e 


VDAIDI 111-19¢ 1135-4@ 113-20 113-29 
VOAID2 111-20¢ 111-216 113-60 


UDAIEX 109-29 109-36 109-42 109 55 110-12 110-320 
UDAINT 98-22 109-200 
WOATIRI 113-3 1135-14¢ 
VOAIR2 115-5 113-200 
VUDAIRS 113-7 1135-290 
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UDAIR4 1135-9 113-370 
VUOAIRE 1123-i5 113-24 113-352 113-420 


WOAIRX 115-43 113-460 
VOAISE 111-35 112-9 li2-11 112-19¢ 
VOATSG 111-32 112-5¢ 
VOATSL 112-6@ 112-16 
VOAIST 109-28 111-12¢ 
UDAISX 112-14 112-180 

1 114-25¢@ 114-29 114-32 114.34 

114-26 115-3¢ | 

UDARSO 57-606 57-61 lic-3e ll2-12e 112-15 114-19¢ 114-25 115-160 
VOARSE 114-37 115-6¢ 
VOARSP 109-41 112-8 114-180 
VDARSX 115-4 115-11¢ 
UDASRY 107-18@ 122-25 
UF.S76 42-120 
UF .CMR 42-30 
UF .Cid =42-40 
UF .INA 42-60 
UF .RPL 42-50 
UF .SCH 42-70 
UF .SCL 42 -8@ 
UF .WBN 42-90 
UF .WPH 42-100 
UF .WPS 42-110 
UFREEZ 50-218 63-35¢ 66 -5 66-1536 74-21 74-236. 
URNING 50-1866 65-16 63-31% 635-40 66 - 326 
RUN S0-17@ 63-15¢ 63-20 65-7 
WAITMS 99-8 104-11¢ 
WNQUES 53-6@ 130-10 
WNSTOP 54-186 74-40 
WNSTRT S4-21@ 130-6 
XtALWA 30-60 
KSFMAS 30-60 
XSOFFS 30-86 134-2 134-4 134-6 134-8 
x67 30-8@ 134-2 134-4 134-6 134-6 


x14 55-14@ 57-43 
X1A 55-1¢ 57-15 
X2 55 -6¢@ 57-19 
X20 55-18@ 57-47 
K21 55-22e@ 57-56 


x3 55-7¢ 57-23 
x30 55-35¢@ 57-87 
x31 55-360 57-91 


ee ee et A Oe ee Ae oe 


- 414 
ZUOEDO PDP -i11 UDA ORV FMTIR MACRO VOS.00 Tuesday, ~“4-May 85 10:10 Page S “1 SEG O1783 
Cross reference table (CREF v05.00) 


x37 55-400 57-112 
x3A 55-30 57-25 
x4 55-80 §7-27 
x8 55-10¢ 57-3: 
18A 55-40 57-31 
uy 55-11¢ 57-35 
xF RU 56 -8¢ 57-75 90-5 
XMSG1 56-10 57-136 
XMSGe 56-20 57-140 
xPK TL 56 - 30 57-123 
xPK TO 56 -6¢ 57-129 
xSA 56-70 91-5 


1 
YER? 118-70 118-72 118-830 


YER4 118-94 118-96@ 116-99 
YERS 118-91 118-97 116-100¢ 116-101 


t | 4 
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.BR 47.31¢ 

AND 4/-30 $7-53 98-17 112-15 

ASSUME 47-590 63-27 66 -20 73-36 79-15 80-16 80-17 120-27 121 24 121-2% 130-42 150-423 

BCOMPL 120-11 120-15 120-15 120-17 120-42 120-44 130-20 

BSGNAUT 128-10 

BGNCLN 129-8 

BGNHRD 151-14 

BGNMMbw 32-10 

BGNINI 120-8 

BSGNPOD 350-26 34-5 119-3 i30-3 131-3 

BGNMSG 57-14 57-18 57-22 57-26 ©7 30 57-34 57-38 57-42 57-46 ©5750 57-59 57-64 
S57 -86 57-90 57-94 57-99 57-105 57-107 57-111 57-115 57-119 
119-10 

BGNMPTA 136-3 

BGNSET 136-1 

BGNSFT 133-12 

BGNSRYV 106-10 107-18 116-5 

BGNSW 33-10 

BGNTST 130-5 

BNCOMP 77-25 121-16 124-5 130-8 

BRE AK 62-12 65-8 104-21 111-12 114-27 

BYILD 84-17¢ 85-9 85-21 

CLOCK 120-41 120-43 

CLOSE 64-12 77-19 

CLRVEC 62-22 111-30 

DESCRI 52-16 

DEvVTYP S2-12 

DISPAT 31-9 

DISPLA 134-9 
59-8 62 - 30 120-18 127-4 127-9 127-15 127-21 

END 35-290 45-49 46-15 131-25 133-25 

ENDAUT 128-12 

ENDCLN 129-13 

ENDHRD 132-6 

ENDeted 32-17 

ENDINI 127-23 

ENDMOD 33-16 118-104 i29-15 130-84 135-10 

ENDMSG 57-16 57-20 57-24 57-28 57-32 57-36 57-40 57-44 57-48 57-57 57-62 57-76 
57-88 57-92 57-97 57-101 57-105 57-109 57-115 57-117 57-121 

ENDPRO 119-16 

ENDPTA 136-11 

ENDSET 136-13 

ENDSFT 134-10 

ENDSRV 106-14 107-21 116-9 

ENDSW 33-14 

ENDTST 130-83 

ENTRY 85-3¢e 85-9 85-9 85-9 85-9 85-9 65-9 85-9 85-9 85-15¢ 85-21 85-21 
85-21 65-21 65-21 65-21 

EQUALS 34-10 

ERRDF 62-28 65-24 66 - 36 67-21 68 -8 72-22 74-32 100-3 104-29 105-5 109-35 109-54 
113-44 114-36 115-5 
59-7 127-3 127-8 i27-14 127-20 130-21 130-27 

ExIT 126-14 130-22 130-28 130-82 

GETBYT 77-24 

GMAN 116-1 130-31 130-44 

GMANIL 130-10 


57-78 


57-60 


85-21 


110-11 


57-84 


85-21 


111-33 


ZUDEDO PDP -11 UDA DRY FMTR MACRO VO5.00 Iuesday 24-May 835 10:10 Page M-2 SEG 9175 
Cross reference tele (CREF v0S.00) 


GPHARO she 124-4 


132-2 
GPRMD 118-1 118-10 130-31 130-312 130-44 130-44@ 132-5 152-4 132-5 
130-10 130-10@ 134-1 134-3 134-5 134-7 


ITEM 35-24e@ 45-12 45-15 45-16 45-19 45-20 45-21 45-22 45-34 45-35 45 -%% 45-437 4*,-434 45.49 
45-40 45-41 45-42 45-43 45-44 45-45 45 -46 45-47 46-9 46-10 46-13% 131-20 131-21 131-22 
131-25 131-24 133-18 

LASTAD 135-8 

MSBYTE 30-34 30-34 30-34 30 - 340 

MSCMEC 126-14 126-14@ 130-22 130-22@ 150-28 130-28@ 150-82 130-820 

MSCNTO 116-1 118-1@ 130-10 130-108 1530-31 130-31¢@ 130-44 1350-440 1532-1 132-10 132-2 132-20 i32-3 32-50 
132-4 132-4@ 132-5 132-Se@ 1534-1 134-10 134-5 134-30 134-5 134-50 134-7 134-70 

MSCOUN 95-12 95-12@ 95-14 95-14¢@ 95-16 95-160 95-16 95-160 130-64 1350-649 

MSDATA 30-34 30-34 30 - 34 30-34 30-34 30-34 30-34 -34 30-354 30 - 34 30-34 30 - 34 50 - 54 350 - 54 
30-34 30-34 30-354 30-34 30-34 30-34 30 - 34 30-34 30-34 50 - 34 30 - 34 30-34 350-34 30-34 
o> ane 30-34 30-34 30 - 34 30-34 30-34 30-34 30-34 30 - 34 30-346 30-340 # 52-12 S2-12e@ S2-16 

MSDECR 532-17 32-17@ 33-14 33-146 533-16 33-16@ 57-16 57-16@ 57-20 57-200 57-24 57-240 57-28 57-280 
57-32 57-32e@ 57-36 57-36@ 57-40 57-400 57-44 57-44@ 57-48 57-460 57-57 5$7-S7@ 57-62 57 -62¢ 
57-76 $7-76@ 57-80 57-600 57-864 57-84¢@ 57-86 $7-88¢@ 57-92 57-920 57-97 57-97@ S7-101 57-1019 
57-105 57-105@ 57-109 57-109 57-113 57-113@ 57-117 57-117@ 57-121 57-121 106-14 106-14@ 107-21 107-21¢ 
ea 116-9@ 118-104 118-1040 119-16 119-16@ 127-23 127-2356 126- 126-12@ 129-13 129-138 129-15 129-156 


132- 136-30 
MSDEFA —. 118-1@ 130-10 130-10@ 130-31 130-31@ 130-44 1530-44@ 132- 132-10 132-2 132-26 132-3 132-39 


i 34 
MSENDE 32-17@ 33-14@ 33-160 57-160 57-200 57-24@ 57-280 57-320 57-360 57-400 57-440 57-460 57-578 57-620 
57-76@ 57-@0@ 57-840 57-880 57-920 57-970 ma sg $7-105@ 57-109@ 57-113@ 57-1170 57-i121@ 106-148 107-21¢ 


1 
MSERRI 59-7 59-70 62-28 62-280 65-24 65-240 66-36 66-360 67-21 67-218 668-68 68-50 72-22 72-220 
74-32 74-32@ 100-3 100-3@ 104-29 104-290 105-5 105-5@ 109-35 109-35@ 109-54 109-548 110-11 110-116 
115-5@ 127-3 127-3e@ 127-6 127-6@ 127-14 i27-14¢ 
MSEXCP 118-1 118- 118-1@ 130-51 130-31 ae 130-44 130-44 130-446 132-1 i32-1 132-18 i32-2 132-2 


32 
MSEXIT 126-14 126-14@ 130-22 130-22@ 130-28 130-26@ 130-82 150- 
MSEXSE 126-14@ 130-220 130-26@ 1350-820 


MSEXTU 126-140 130-228 130-26@ 130-820 

MSGEN 30-34 30-34 30-34 30- 30-34 30-34 30-34 30-34 30-34 30-34 30-34 30-34 30-34 30-34 
30-34 30-34 30-34 30-34 30-34 30-34 30-34 30-34 30-34 30-34 30-34 30-34 30 - 34 30-34 
30-34 30-34 30-34 30-34 30-34 30-34 30-34 30-34 30-34 30-34 30-340 30-MOe S-MOe WME 
30-340 30-340 30-340 30-340 30-340 30-34¢ 30-340 30-MO@ 30-3840 30-MO@ 30-MO ME HMO 58M 
36-340 30-340 30-340 30-340 30-340 30-340 30-346 30-340 30-340 30-340 30-MO 3O-ME HMO OME 
30-340 30-80 3-MO 30-8 6O-MO «80-Me 51-9 31-90 32-10 32-10 32-100 32-108 32-i7 32-179 
33-10 33-10 33-100 33-108 335-14 33-14@ 52-12 S2-12@ 52-16 S2-16@ 57-14 57-14e 57-16 57-160 
57-18 57-188 57-20 57-208 57-22 5$7-22¢ 57-24 57-240 57-26 57-260 57-268 57-280 57-30 57-300 
57-32 57-320 57-34 57-340 57-% 57-360 57-38 57-380 57-40 5$7-40@ 57-42 57-42@ 57-44 $7-44¢ 
57-46 57-460 57-48 57-486 57-50 57-S0e@ 57-37 $7-57@ 57-59 57-59@ 57-62 57-62e@ 57-64 57 -64¢ 
57-76 57-760 57-76 57-780 57-80 $7-80e 57-82 57-820 57-64 57-840 57-86 57-862 57-88 57 -88e 
57-90 57-900 57-92 57-920 %7-94 57-94¢@ 57-97 57-970 7-99 57-99e@ 57-101 57-1018 57-103 57-105¢ 
57-105 5$7-105@ 57-107 57-107@ 57-109 57-109@ 57-111 57-111@ 57-115 57-113@ 57-115 57-115@ 57-117 57-117¢ 
S7-119 57-119@ 57-121 57-1219 106-10 106-100 -14 106-14@ 107-1 107-18@ 107-21 107-21@ 116-5 116-5¢ 
116-9 116-90 116-1 116-1@ 119-10 119-10@ 120-8 120-8@ 127-23 127-23@ 128-10 128-108 1286-12 i26-i120 
129-8 29-8@ 129-13 129-130 130-5 130-S@ 130-10 130-10@ 150-531 130-31¢@ 130- 130-44@ 130-83 130-85¢ 
31-14 131-140 132-6 132-6@ 133-12 133-12@ 1534-10 134-100 155-8 135-8e@ 136-3 136-30 136-11 136-11¢ 


1 
MSGENE 118-1 116-1@ 130-10 130-100 150-31 130-310 1350-44 130-446 


ee — ——E ma as —_—-——~ . 
ones —— = — - . — - ~ 


ZUDEDO PDP-11 UDA ORV FMTR MACRO VO5S.00 Tuesday 24-May 85 10: 


Cross reference table (CREF v05.00) 
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120-52 
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10 Page M-% 
57-16 57-160 57-20 
57-44 57-440 57-48 
57-88 57-860 57-92 
57-117 §7-1170 57-121 
127-25 127-230 126-12 
134-2 134-20 134-4 
134-4 134-40 134-6 
50 - 34 30-34 50-34 
30 - 34 50 - 54 30-34 
30-34 30 - 34 10-34 
30-340 30-340 50-346 
30-3490 30-340 30 - 340 
30-340 31-9 31-90 
57-14 57-140 57-18 
57-42 57-420 57-46 
57-86 57-860 57-90 
$7-115 57-1150 57-119 
120-8¢ 128-10 128-100 
30-34 50-34 30-34 
30-34 30-34 50-34 
30-34 30-34 30-34 
30-340 30-340 30-340 
30-344 30-34e@ 30-340 
30-340 30-340 30-340 
31-9 31-9 31-90 
52-160 S2-16@ 57-16 
57-40 57-400 57-44 
57-84 57-840 7-88 
$7-113 57-1135¢@ 57-117 
59-7¢ 59-8 59-8¢ 
62-118 62-12 62-12¢ 
62-28¢@ 62-260 -30 
65-240 65-240 65-2420 
67-21 67-21 67-210 
68 -8¢@ -8@ 72-22 
74-32 74-320 74-320 
77-240 77-240 77-25 
95-120 95-14 95-14 
95-16 95-16 95-16 
95-18 95-168 95-160 
98-200 98-200 98-200 
104-21¢@ 104-29 104-29 
-5¢ 105-S¢e 105-S¢e 

109-35@ 109-35@ 109-350 
110-11 110-11 110-11 
111-27 111-27 111-270 


113-44@ 113-44@ 114-27 
115-5 115-5 115-5 
118-1 116-1 118-1 
120-12 120-12 120-120 
120-160 120-16@ 120-17 
120-41@ 120-42 120-420 
120-52 120-52 120-52e 
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SEQ 90176 


Lo 
ZUDEDO POP 11 UDA DRV FMTR MACRO VO5.00 Tuesday 24-May 83 10:10 Page M-4 SEQ 0177 
Ceoss reference table (CREF v05S.00) 


121-15 121-15 121-15@ 121-15@ 121-15@ 121-16 121-160 124-4 124-4 124-40 124-49 124-40 124-5 124 -Se 
126-12 126-12 126-12@ 126-120 126-14 126-14 126-140 126-140 127-3 127-3 127-3 127-3 127-350 127-50 
127-30 127-30 127-3@ 127-4 127-40 127-8 127-8 127-8 127-8 127-690 127 -60 127-84 i27-80 127-80 
127-9 127-9¢ 127-14 127-14 127-14 127-14 127-140 127-140 127-140 127-140 127-148 127-15 127-15@ 127-20 
127-20 127-20 127-20 127-20@ 127-200 127-200 127-20@ 127-208 127-21 127-219 127-23 127-230 128-i2 128-120 
i29-15 129-13¢ 130-7 130-70 130-8 130-60 130-10 130-10 130-10 1350-10 130-10 130-10 130-10@ 130-100 
130-10@ 1350-10¢ 130-19 130-19@ 150-20 130-200 130-21 130-21 i30-21 130-21 130-219 1306-210 130-210 1530-219 
130-21@ 130-22 130-22 130-220 130-220 130-27 130-27 130-27 130-27 130-270 130-276 130-270 130-276 130-270 
130-28 130-26 130-28@ 130-2860 130-31 130-31 130-3: 150-5 130-31 130-31 130-31 130-31 1350-310 1350-31°¢ 
130-31@ 130-31@ 130-32 130-32 130-32@ 130-32¢ 150-44 1350-4 . 

130-44@ 130-44@ 130-44@ 130-44@ 130-64 150-64 130-64 : 


MSGNLS 118-1 118-1@ 130-10 130-10@ 130-31 130-31@ 130-44 1350-440 
MSGNTA 32-17 32-17@ 33-14 33-14@ 57-16 57-160 57-20 57-200 57-24 57-240 57-28 57-280 57-32 57-320 


$7-109 57-109@ 57-113 57-113@ 57-117 57-117@ 57-121 57-1210 106-14 106-14@ 107-21 107-210 116-9 1°6-9¢ 


MSGNTE 1530-5 130-5@ 
MSHAPT 30-34 30-340 
MSHNAP 30-34 30 -34¢@ 


MSINCR 30-26 30-260 32-10 32-10 32-10@ 32-100 33-10 33-10 33-10@ 33-100 34-3 34-30 57-14 57-14 
57-140 57-14@ 57-160 57-18 57-16 57-180 57-18@ 57-200 57-22 57-22 57-220@ S7-220@ 57-240 57-26 
57-26 57-260 57-26@ 57-280 57-30 57-30 57-300 57-300 57-320 57-34 57-34 57-340 57-340 57-360 
57-36 57-38 57-380 7- 57-400 57-42 57-42 57-420 57-420 57-440 57-46 57-46 57-460 57-460 


129-10 119-10 119-108 119-100 120-6 120-8 120-8@ 120-8@ 120-100 -120 -1 120-16@ 120-18¢ 120-520 
120-41@ 120-43@ 120-52@ 121-15@ 124-4@ 126-12@ 126-14@ 127-3@ 127-40 127-86 127-9@ 127-14@ 127-158 127-20¢ 
127-21@ 127-23@ 128-10 128-10 126-10@ 128-10@ 126-i2@ 129-3 129-6 129-6¢ -6@ 129-13@ 130-3 130-3¢ 


1 
MSLDORO 62-22 62-220 77-20 77-200 111-30 111-30@ 120-10 120-10@ 120-12 120-12@ 120-14 120-14@ 120-16 120-160 
nee ey 5 ey 120-43 120-43@ 121-15 121-15¢@ 124-4 124-4@ 126-12 126-12@ 130-32 130-32¢ 


MSMCLO 30-8 30 -8¢@ 

—MSPOP 8 32-17 32-170 33-14 33-140 35-16 33-°6@ 57-16 57-16@ 57-20 $7-209 57-24 57-24e@ 57-28 57-26¢ 
57-32 57-320 57-36 57-360 57-40 57-400 57-44 57-440 57-48 $7-48@ 57-5? $7-S7@ 57-62 S7-62¢ 
57-76 57-766 57-80 57-600 57-64 57-840 57-86 57-88¢e 57-92 $7-92e@ 57-97 $7-97@ S7-101 57-101¢ 
57-105 57-105¢ 57-109 57-1090 57-113 57-113@ 57-117 $7-117@ 57-121 57-1218 106-14 106-14@ 107-21 107-21¢ 
116-9 116-90 116-104 118-104@ 119-16 119-160 127-25 127-23@ 128-12 1286-12@ 129-13 129-13@ 129-15 129-15e 
130-83 130-830 130-84 150-649 152-6 132-6@ 134-10 134-10@ 135-10 135-100 


JILG 
ZUDEDO PDP 11 UDA ORV FMTR MACRO VO5.00 Tuesday 24-May 835 10:10 Page *’-5 SEQ 90174 
Cross reference table (CREF v05.00) 


MSPRIN 95-12 95-12e@ 95-14 95-140 95-16 95-160 95-18 95-160 150-64 150-640 

MSPUSH 30-26 30-26@ 32-19 32-100 33-10 33-100 34-3 34-30 57-14 57-140 57-16 57-160 S7.-, 
57-26 57-260 57-30 57-300 57-34 57-5340 57-36 57-360 57-42 57-420 57-46 57-460 5S7- 
57-59 5$7-59@ 57-64 57-640 57-76 57-780 57-82 57-620 57-66 57-860 57-90 57-909 S7- 
57-99 57-99@ 57-103 57-103@ 57-107 57-1070 57-111 57-1110 57-115 57-3150 57-119 %7-1190 106-10 106 -100 
107-18 107-18@ 1liloe-5 116-5¢ oer 3 119-3¢ 119-10 119-100 120-6 120-80 126-10 126-106 129-8 129-80 


130 . : 
MsPuUT S- 62-11 62-11 62-11 62-110 95-12 95-le 95-12 95-120 95-14 95-14 95-14 9-140 95-16 


—SPUT1L 62-11 62-11 62-11 62-11 62-110 62-110 62-110 62-11¢@ 95-12 95-12 95-12 95-126 %%-i2e 95-1280 
95-14 95-14 95-14 -14@ 95-140 95-140 95-16 95-16 95-16 95-160 95-160 95-160 95-186 95-18 
95-18 95-18@ 95-180 95-18@ 98-20 98-20 986-20 98-20 96-200 96-200 96-209 96-200 111-27 Lil-2? 
lli-2?7 111-27 ill-2e7@ 111-27@ 111-278 111-278 120-52 120-S2 120-52 120-52 120-S2@ 120-520 120-528 120-520 
130-64 130-64 130 -64 130-64@ 130-640 130-640 

MSRAOT 118-1 116-1@ 130-10 i30-10@ 1530-31 130-310 130-44 1350-440 132-1 132-1¢@ 132-2 132-20 132-3 132-30 
132-4 132-4@ 132-5 132-5@ 134-1 134-1@ 134-5 134-30 134-5 134-50 134-7 134-70 

MSRBRO 77-24 77-240 

MSRNRO 120-32 120-32@ 120-41 120-41@ 120-43 120-43@ 121-15 121-150 124-4 124-40 

MSSETS 30-26 30-26@ 32-10 -10@ 33-10 33-100 ° 34-30 57-14 57-14¢@ 57-18 57-18¢@ 57-22 57-229 
57-26 57-26@ 57-30 57-30e 57-34 57-340 57-36 57-360 57-42 57-420 57-46 57-460 57-50 57 -S50¢ 
57-59 57-5S9e@ 57-64 57-64e@ 57-78 $7-78@ 57-82 57-820 57-86 57-660 57-90 57-90@ 57-94 57-94¢ 
57-99 57-99@ 57-103 57-103@ 57-107 57-1076 S7-111 57-111@ 57-115 57-115@ 57-119 57-1196 106-10 106-100 


130 
MsSvC Re 57-160 57-20 5$7-20@ 57-24 57-24@ 57-28 57-26@ 57-32 57-320 57-% 57-360 57-40 57-400 
Ss? 


i 
“$STL@B 57-16@ 57-200 57-24@ 57-280 57-32@ 57-360 57-400 57-440@ 57-48@ 57-570 57-62@ 57-760 57-800 57-840 


62-260 62-30@ 64-120 65-89 65-24¢ - 67-21¢ 66- 72-22@ 74-320 77-190 77-200 77-240 Q%5-i2? 
95-140 95-160 95-*8@ 98-208 100-3@ 104-21¢ 104- 105-5@  109-35@ 109-54@ 110-11 111-128 111-278 111-50¢ 
111-33@ 113-440 114-27¢ 114-36@ i115-5@ 118-1@ 120-10@ 1i20-12@ 120-14@ 120-160 - - 120-41@ 120-435¢ 


= 
- 130 

msTSTL 57-16 57-16@ 57-20 57-200 57-24 cA 57-26 57-26¢@ 57-32 $7-S2e 57-36 57-36% 5$7-40 57 -40¢ 
$7 


57-117 57-117@ S7-121 5S7-121¢@ 59-7 59-7¢@ 59-7@ $9- 59-80 62-11 62-112 62-12 62-122 62-22 
62-220 62-26 62-260 62- 62-30 62-30¢@ 64-12 64-12@ 65-8 65 -80 65-24 65-248 65-240 66-% 
66-360 66-360 67-21 67-21@ 67-210 -8 66 -60 68 -80 72-22 72-220 72-220 74-32 74-32¢@ 74-32¢e 


i 
109-35¢@ 109-350 109-54 109-54@ 109-54@ 110-11 110-11@ 110-11 111-12 lli-l2@ 111-27 111-272 111-30 111-302 
111-33 111-33@ 111-330 115-44 113-440 1135-449 114-27 114-27@ 114-36 114-36¢@ 114-36@ 115-5 115-Se 115-S¢ 


semitones tng aa ape il ie. el i TL LL LLL ALL LLL LL LLL LLL LD LALLA LLL LLL On 


a ee 
ZUOEDO POP *1 UDA ORV FMTR MACRO VO5.00 Tuesday 24-May-83 10:10 Page 4-6 SEQ 0179 
Cross reference table (CREF v05.00) 


118-1 118-1¢ 120-10 120-10@ 120-ie 120-120 120-14 120-140 120-16 120-160 120-18 120-186 120-32 120-320 
120-41 120-41@ 120-43 120-438 120-52 120-S2e@ 121-15 121-150 124-4 124-40 126-12 126-120 126-14 126-140 


MSWORD 30 - 34 30-34e@ 31-9 31-9 31-90 59-7 59-7 59-7 59-70 62-28 62-26 62-26 62-260 65-24 


130-31 130-31 130-31@ 130-31¢@ 150-44 130-44 130-440 130-440 130-6820 132-1 132-190 132-2 132-2¢ 132-3 
132-30 132-4 132-40 132-5 132-5¢ 134-1 134-190 134-2 134-290 134-3 1 134-4 134-40 134-5 
134-5¢e 134-6 134-60 134-7 134-70 134-8 134-80 134-9 134-9 134-90 136-3 136-30 

MSXFER 134-2 134-20 134-4 134-480 134-6 134-60 134-8 134-80 
130-7 130-19 

MEMORY 120-32 

OPEN 77-20 130-32 

on 47-96 

PNT 49 -20¢@ 74-40 137-24 117-28 117-33 

PNT. 48-21¢ 57-15 57-19 57-23 S$7-27 57-31 57-35 57-39 57-45 57-47 57 -S6 57-61 57-65 57-69 
57-75 57-79 57-83 57-87 57-91 57-95 57-108 57-1i2 57-116 57-120 57-123 57-129 57-136 57-140 
on ar 80-15 81-41 83-23 86-4 87-5 88-5 117-24 117-28 117-33 115-31 120-46 130-6 130-30 
i350 -41 


PNTB 49-11e@ 57-15 57-19 57-23 57-27 57-31 57-35 57-39 57-43 57-47 57-56 57-61 57-65 57-69 
57-75 57-79 57-83 57-87 57-91 57-95 57-1068 57-112 57-116 57-120 57-123 S7-129 57-13% 57-140 


POINTE 30-32 
47-230 60-21 62-23 73-44 73-49 79-17 63-24 89-7 90-7 91-7 92-31 98-17 94-25 95-19 
128-18 97-28 101-29 101-30 102-22 103-25 104-30 105-2 105-6 107-20 108-41 112-19 114-24 117-29 

PRINT 48-86 78-18 78-21 80-21 80-23 682-6 82-13 83-10 83-30 87-7 88-7 94-13 94-22 117-27 
117-32 117-35 

PRINTB 95-14 

PRINTF 95-12 130-64 

PRINTS 95-18 

PRINTX 95-16 
47-15@ 60-16 62-9 73-33 73-39 79-11 89-4 90-4 91-4 92-13 93-16 93-22 93-40 995-6 
96-12 96-16 97-16 101-15 102-14 103-16 104-11 1086-14 111-13 114-18 117-15 117-22 


120-10 120-i2 120-14 120-16 


SETVEC 62-11 96-20 111-27 120-52 

Svc 30-78 30-8 

TABLE 35-200 45-10 46-7 131-168 133-16 
XFER 126 a 130-220 130-288 130-62¢ 


134-4 134-6 134-6 


